Delete sheets without confirmation prompts

If you want to delete sheets from a workbook without the user being prompted for any confirmations you can use this macro:

Sub DeleteSheet(strSheetName As String)
' deletes a sheet named strSheetName in the active workbook
    Application.DisplayAlerts = False
    Sheets(strSheetName).Delete
    Application.DisplayAlerts = True
End Sub

Document last updated 1999-12-20 12:51:27 Printerfriendly version