Sub SheetToDel(SheetToDel) Application.DisplayAlerts = False Sheets(SheetToDel).Select ActiveWindow.SelectedSheets.Delete Application.DisplayAlerts = True End Sub