Sub DelShet()
Dim sht As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
For Each sht In Worksheets
sht.Delete
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Sub DelShet()
Dim sht As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
For Each sht In Worksheets
sht.Delete
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub