Macro Delete Sheet w/no "ok" box?

[Dennis]

I've coded the macro

Sub DeleteSheet()
ActiveWindow.SelectedSheets.Delete
End Sub

When I execute the macro I get the warning box "The Selected sheets will be
permanently deleted. Click Ok or Cancel"

How do you get rid of the warning box and just delete the sheet without a
warning?

I've tried

ActiveWindow.SelectedSheets.Delete (False) This created a compile error for
..Delete

Thanks in advance for any help.

Dennis

 

[Harald Staff]

Hi Dennis

Sub DeleteSheet()
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End Sub

HTH. Best wishes Harald

 

[Dennis]

I didn't know that Application.DisplayAlerts existed until now.

Thanks Harald!

 

[Doo-Dah Man]

application.displayalerts=false

I think that's it