Delete Worksheets without Alert message

Sub DeleteWorksheets()

Application.DisplayAlerts = False


For i = 1 To Worksheets.Count
Sheets(i).Delete
Next i

Application.DisplayAlerts = True

End Sub