Удалить все листы кроме первого

Sub Dell_all()
Application.DisplayAlerts = 0
Dim i As Integer
For i = 2 To Worksheets.Count
    Worksheets(i).Delete
    Next i
Application.DisplayAlerts = 1
End Sub

Worksheets(i).Delete

Worksheets(Array("Лист2", "Лист3", "Лист4")).Delete

Sub Dell_all()
    Dim i As Integer
        Application.DisplayAlerts = 0
        For i = Worksheets.Count To 2 Step -1
            Worksheets(i).Visible = xlSheetVisible
            Worksheets(i).Delete
        Next i
        Application.DisplayAlerts = 1
End Sub

Sub Dell_all()
Application.DisplayAlerts = false
Worksheets(1).activate
Dim i As Integer
For i = Worksheets.Count to 2 step -1
    Worksheets(i).Delete
Next i
Application.DisplayAlerts = true
End Sub

For i = 1 to Worksheets.Count-1
    Worksheets(2).Delete
Next i

Sub t()
  Dim s$, i%
  For i = 2 To Worksheets.Count
    s = s & "/" & Worksheets(i).Name
  Next
  Sheets(Split(Mid(s, 2), "/")).Delete
End Sub

application.screenupdating = false
Application.DisplayAlerts = false

Application.DisplayAlerts = true
application.screenupdating = true

Sub tt()
  Dim s$, i%, ExcludeList$
  ExcludeList = "Лист1"
  Sheets(ExcludeList).activate  
  with application
    .screenupdating = false
    .DisplayAlerts = false
  For i = 1 To Worksheets.Count
    if Worksheets(i).name <> ExcludeList then
      s = s & "/" & Worksheets(i).Name
    end if
  Next
  Sheets(Split(Mid(s, 2), "/")).Delete
    .DisplayAlerts = true
    .screenupdating = true
  end with
End Sub