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

Hello, 

 

Sorry, I must have misunderstood your intention.

Please let me know whether this is what you need: Name of partnumber + Sheet.index. 

 

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")
    MessageBox.Show (partnum )
    'MessageBox.Show(partnum)
    ActiveSheet.Sheet.Name = partnum + "-" + SheetNumber
Next

 




Jane Fan
Inventor QA Engineer