Sub SheetToDel(SheetToDel)

Sheets(SheetToDel).Select
ActiveWindow.SelectedSheets.Delete

End Sub