Active Sheet

[Anonymous]

Hi

I want to be able to assign (prompt) a name to a new active sheet  (shown below) could someone help

Thanks

[jletcher · Accepted solution]

Here is a start working on when new sheet is create it will prompt for name...

Dim oDoc As DrawingDocument
 oDoc = ThisApplication.ActiveDocument
 
Dim strSheetName As String
 strSheetName = Left$(oDoc.ActiveSheet.Name,InStrRev(oDoc.ActiveSheet.Name, ":") - 1)
 
 

 oDoc.ActiveSheet.Name = InputBox("ENTER SHEET NAME", "NAME THAT SHEET", "GIVE ME A NAME PLEASE")

[Anonymous]

Thank you Regards Dominic Tunnell OIEAust Mechanical Draftsman [Description: cid:image003.png@01CC93F6.3BB88C90] JOEST Australia Pty Ltd Ph: 92598316 E-mail: dominic.tunnell@joest.com.au Web: www.joest.com.au