This option deletes the entire sheet from
the workbook. You will be asked to confirm the
deletion, but this cannot be undone if you
change your mind later! (See below).
Sub DeleteSheet()
'Deletes sheet but prompts for confirmation
'If this is not desired put
'Application.DisplayAlerts = False
Worksheets("Sheet1").Deletete
End Sub
