Excel VBA


Delete all worksheets (except the first one)

Sub Sh_delete()
 Dim I As Integer
 Application.ScreenUpdating = False
 Application.DisplayAlerts = False
   For I = ActiveWorkbook.Worksheets.Count To 1 Step -1
      If Worksheets(I).Name <> "Sheet1" Then _
         Worksheets(I).Delete
   Next I
 Application.ScreenUpdating = True
 Application.DisplayAlerts = True
End Sub