09-21-2016
07:22 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
09-21-2016
07:22 AM
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