Slet alle arkfaner bortset fra 2 navngivne arkfaner

Prøv med

Sub sletalleark()
    Application.DisplayAlerts = False
    For Each s In ActiveWorkbook.Sheets
        If s.Name = "A1" Or s.Name = "A2" Then
            GoTo n
        Else
            s.Delete
        End If
n:
    Next s
    Application.DisplayAlerts = True
End Sub

Ret A1 og A2 til navnene på de ark, der ikke skal slettes.

Bortset fra, at du manglede at erklære variablen s, så virkede det. Svar !!!

Sub sletalleark()
Dim s As Worksheet
   
    Application.DisplayAlerts = False
    For Each s In ActiveWorkbook.Sheets
        If s.Name = "A" Or s.Name = "B" Then
            GoTo n
        Else
            s.Delete
        End If
n:
    Next s
    Application.DisplayAlerts = True

End Sub

Her er et svar :-)
Erklæringen er dog ikke nødvendig med mindre du kører med Option Explicit.