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