05-24-2017
07:31 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
05-24-2017
07:31 AM
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