Meerdere tabbladen behouden bij verwijderen

[BasHobus]

Hallo,

Ik heb de volgende VSB

Sub MakeSheets()
Application.DisplayAlerts = False
For Each sh In Worksheets
If sh.Name <> Sheets("bron").Name Then sh.Delete
Next
Application.DisplayAlerts = True
With Sheets("Bron")
For Each c In .Range("J2", .Range("J65536").End(xlUp))
Sheets.Add , Sheets(Sheets.Count)
ActiveSheet.Name = c.Value
Next
End With
End Sub

In de huidige situatie blijft alleen sheet "Bron" behouden.
Echter zal ook het tabblad "pivot" en "analyses" behouden moeten blijven. de rest kan verwijderd worden.

Weet iemand hoe ik deze binnen de houdige VSB kan aanpassen?

 

[Cobbe]

Sub MakeSheets()
Application.DisplayAlerts = False
For Each sh In Worksheets 
If sh.Name <> "bron" AND sh.name <> "pivot" AND sh.name <> "analyses"  Then sh.Delete

 

[Timshel]

Probeer het zo eens:

Sub MakeSheets()
    Application.DisplayAlerts = False
    For Each sh In Worksheets
        'If sh.Name <> Sheets("bron").Name Then sh.Delete
        If InStr("BRONPIVOTANALYSES", UCase(sh.Name)) = 0 Then sh.Delete
    Next
    Application.DisplayAlerts = True
    With Sheets("Bron")
        For Each c In .Range("J2", .Range("J65536").End(xlUp))
            Sheets.Add , Sheets(Sheets.Count)
            ActiveSheet.Name = c.Value
        Next
    End With
End Sub

 

[BasHobus]

Het werkt. Dankjewel