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