Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
JaneFan
in reply to: Anonymous

Hi, 

 

Please try using following code:

SyntaxEditor Code Snippet

Dim oSheets As Sheets = ThisDrawing.Document.sheets
Dim oSheet As Sheet
Dim SheetNumber As String 

For Each oSheet In oSheets
    oSheet.activate
    oModel = IO.Path.GetFileName(ActiveSheet.View("ISO").ModelDocument.FullFileName)

    'MessageBox.Show(oModel)
    oDoc = ThisDoc.Document
    MessageBox.Show (Mid(oDoc.ActiveSheet.Name, InStr(1, oDoc.ActiveSheet.Name, ":") + 1))
    SheetNumber  = Mid(oDoc.ActiveSheet.Name, InStr(1, oDoc.ActiveSheet.Name, ":") + 1)
    
    partnum = iProperties.Value(oModel, "Project", "Part Number")(Int(sheetnumber))
    MessageBox.Show (partnum )
    'MessageBox.Show(partnum)
    ActiveSheet.Sheet.Name = SheetNumber + partnum
Next

 




Jane Fan
Inventor QA Engineer