Dim wrksht As WorksheetApplication.DisplayAlerts = FalseFor Each wrksht In WorksheetsIf wrksht.Name <> "Summary" Then wrksht.DeleteNextApplication.DisplayAlerts = True