Auto_open MAcro

[John McCabe]

I have a TOC(table of contents) macro and it works great. Also have the
auto_open macro to start on the first sheet.
Trying to give users the option of creating the TOC sheet and then of course
always start on that sheet. But would have NO auto_open unless they
actually want the TOC sheet to be there. Somehow is there a way to have the
TOC macro create also the auto open macro

 

[Bob Phillips]

Dim StartLine As Long

With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
.InsertLines .CountOfLines, _
"Public Sub Autpen()" & vbCrLf & _
"Dim ans" & vbCrLf & _
" ans = Msgbox( ""All OK"",vbYesNo)" & vbCrLf & _
" If ans = vbNo Then Cancel = True" & vbCrLf & _
"End Sub"
End With