10-25-2018
09:55 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
10-25-2018
09:55 AM
Hi @Scott.Hallmark,
Something like this will work.
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
dwgDoc = ThisDoc.Document
oSheetName = dwgDoc.ActiveSheet.Name
'split the name into a string array using colon
Dim sSplit As String() = oSheetName.Split(New Char() {":"c})
'get the first member of array
oSheetName = sSplit(0)
MessageBox.Show(oSheetName, "SheetName")
'get the second member of array
oSheetNumber = sSplit(1)
MessageBox.Show(oSheetNumber, "SheetNumber")