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

i am no expert on code i did find this in a similar post maybe it will work for you:

 

SyntaxEditor Code Snippet

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

For Each oSheet In oSheets
    oSheet.activate
    Dim oDrawingView As DrawingView = oSheet.DrawingViews(1)
    oModel = ActiveSheet.View(oDrawingView.Name).ModelDocument
    PartNumb = iProperties.Value(oModel.DisplayName, "Project", "Part Number")

    

    ActiveSheet.Sheet.Name = PartNumb
Next