Opgelost Uitbreiden uitgezonderde bladen

[Senso]

Hoe voeg ik uit te zonderen bladen toe? Bijvoorbeeld Watersch, GemBelas.

Sub VerwijderAlleBladenBehalveHoofdblad()
    Dim ws As Worksheet
    
    ' Voorkom bevestigingsmeldingen voor het verwijderen van bladen
    Application.DisplayAlerts = False
    
    ' Loop door alle bladen in het huidige werkboek
    For Each ws In ThisWorkbook.Worksheets
        ' Controleer of de naam NIET "Hoofdblad" is
        If ws.Name <> "Hoofdblad" Then
            ws.Delete
        End If
    Next ws
    
    ' Zet meldingen weer aan
    Application.DisplayAlerts = True
    
    MsgBox "Klaar! Alle bladen behalve 'Hoofdmap' zijn verwijderd."
End Sub

 

[xps351]

Zo?

If ws.Name <> IN ("Hoofdblad", "Waterschap", "GemBelas.") Then

 

[Enigmasmurf]

En mocht dat niet werken (ahum), dan zal dit het wél doen:

For Each ws In ThisWorkbook.Worksheets
  Select Case ws.Name
    Case "Hoofdblad", "Watersch", "GemBelas"
    Case Else: ws.Delete
  End Select
Next ws

 

[snb]

Sub M_snb()
 For Each it In Sheets
  If InStr("HoofdbladWaterschGemBelas", it.Name) = 0 Then it.Delete
 Next
End Sub

 

[Senso]

Oké, bedankt.