delete sheet
 

how can i write this without answering yes or no


Sub deleteSheet()
'
Application.DialogBox = False
ActiveWindow.SelectedSheets.Delete
Application.DialogBox = True

End Sub

Would like Thank You

delete sheet
 

Sub deleteSheet()
'
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True

End Sub
--
Regards,
Tom Ogilvy

"Esau" wrote in message
...
how can i write this without answering yes or no


Sub deleteSheet()
'
Application.DialogBox = False
ActiveWindow.SelectedSheets.Delete
Application.DialogBox = True

End Sub

Would like Thank You