Auto_Open - Prompt to Continue?

[pkley]

I have a Autpen macro that opens multiple workbooks. However, while I do
need it to run MOST of the time, I want an option to NOT run it.
Can I add code that will prompt "Would you like to Open Workbooks?", Yes
continues and No stops the macro...
Don't think you need it, but here's the macro now...
(Yes it's bloated, but each workbook is in a different child directory, and
I already had hyperlinks, so I just did a macro record)(I'm macro ignorant
too, can you tell?:-D)
Sub Autpen()
'
' Autpen Macro
' Macro recorded 10/13/2004 by Peter Kley
'

'
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Windows("Payroll_Master_Entry_Concord_New.xls").Activate
Sheets("GGD").Select
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Windows("Payroll_Master_Entry_Concord_New.xls").Activate
Sheets("JCF").Select
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Windows("Payroll_Master_Entry_Concord_New.xls").Activate
Sheets("MAK").Select
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
Sheets("PSB").Select
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
Sheets("RXA").Select
Range("N1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("TRA").Select
Range("N1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
Sheets("TTT").Select
Range("N1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("CEC").Select
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
Range("B277").Select
End Sub

 

[Frank Kabel]

Hi
use the following type of code:

dim res
res=msgbox ("Continue",vbyesno)
if res<>vbyes then exit sub
'your code

 

[pkley]

Cool! It's even cleaner than what I found on the web...
Thanks!