Hi
try
Drat = MsgBox("Are You Sure You Wish To Create Your Daily Drat At This
Time?", vbYesNo, "DAILY DRAT")
If Drat = vbNo Then
Call NoCreateDrat
Exit Sub
End if
'then the rest of the original code
Regards
JulieD
"Celtic_Avenger" wrote in
message ...
I'm running a simple code to save specific sheets in a spreadsheet to
new workbook.
This is activated by a yes no message box.
ie. "Are you sure you want to do this at this time?"
------"Yes"....."No"
In the code I have I have the following..........
Drat = MsgBox("Are You Sure You Wish To Create Your Daily Drat At This
Time?", vbYesNo, "DAILY DRAT")
If Drat = vbNo Then End
There is then the required code below this to make the program copy and
save the required sheets.
But how to I alter the above code to run the following Sub, called
NoCreateDrat.
Sub NoCreateDrat()
MASFORM.Hide
MainMenu1.Show
End Sub
Or can I just add the instructions into the first code.
This must be simple......I just cant figure it out..........
Thanks
Celtic_Avenger

--
Celtic_Avenger
------------------------------------------------------------------------
Celtic_Avenger's Profile:
http://www.excelforum.com/member.php...o&userid=14101
View this thread: http://www.excelforum.com/showthread...hreadid=273976