Application.DisplayAlerts=False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts=True

Regards, TMS