Zonder voorbeeld en het ontbreken van uitleg over het hoe en waarom, helpt dit je verder?
Kies de bladen die je wilt verwijderen (je kan er meerdere kiezen) en druk op verwijderen.
Zie bijlage.
Het is een stokpaardje van mij maar ik blijf het herhalen.
Vermijdt Select en Activate, het vertraagt je code big time en het is zelden nodig.
Deze code doet net hetzelfde als uw vb.
Sub Macro1()
    aantaltabs = Application.Sheets.Count
    MsgBox "Het totaal aantal werkbladen is: " & aantaltabs
    If Application.Sheets.Count > 4 Then Sheets(Array(3, 4, 5, 6, 7, 8)).Delete
End SubZoals je kan zien in mijn vb, ik gebruik
Application.DisplayAlerts = FalseDan krijg je geen vraag  Microsoft Excel verwijdert ....

Deze verwijderd alle tabbladen waarvan de naam begint met "blad". zodus verander eerst de naam van de bladen die je wil behouden.

Dat is volgens mij geen optie. Als je elke naam van je werkbladen moet gaan nakijken en veranderen zodat het in je macro past, dan kan je ze net zo goed (en sneller) handmatig verwijderen.

SoftAid              

nu vraag je juist die bladen wel te verwijderen.

Als de naam 1,2,9,10 is dan verwijder staat er nu.

Er is een verschil tussen Or en And
Sub oplossing_be()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each ws In Application.ThisWorkbook.Worksheets
        If ws.Name <> "1" And ws.Name <> "2" And ws.Name <> "9" And ws.Name <> "10" Then ws.Delete
    Next
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub


Dank voor de terugkoppeling.