Deleting sheets

[ranswrt]

I have a procedure that deletes sheets from the workbook. The problem I have
is Excel has window pop up that asks if I still want to delete the sheet. If
I select cancel the procedure continues to run as if the sheet was deleted.
How do I stop the procedure if delete sheet is canceled or get the window not
to pop up?
Thanks

 

[Jim Thomlinson]

Application.DisplayAlerts = False
Sheets("Sheet 1").Delete
Application.DisplayAlerts = True

The above code should keep the message from appearing. If you let the
message pop up then you need to check if the sheet still exists after the
delete...

 

[ranswrt]

Thanks

Application.DisplayAlerts = False
Sheets("Sheet 1").Delete
Application.DisplayAlerts = True

The above code should keep the message from appearing. If you let the
message pop up then you need to check if the sheet still exists after the
delete...

 

[Gary Brown]

You have to change the macro to something like...

'/--------------------------------------------------------/
varAnswer = MsgBox("Delete worksheet?", vbYesNo)

If varAnswer <> vbYes Then
Exit Sub
End If
'/--------------------------------------------------------/

--
Hope this helps.
If this post was helpfull, please remember to click on the ''''YES''''
button at the bottom of the screen.
Thanks,
Gary Brown