Macro om sommige tabbladen te sluiten

[Patrick6411]

Hallo,

Ik gebruik een draaitabel om een groot aantal gegevens ordelijk te tonen. In mijn bestand heb ik een stuk of 6 tabjes met elk een andere naam en één tab met de draaitabel die toepasselijk Draaitabel heet. Als ik nu op een bedrag in de draaitabel klik om de specificatie van het bedrag te tonen opent hij een nieuw tabblad met naam Blad1, Blad 2 enz.
Nu gebruik ik deze optie veel, maar heb geen zin om telkens handmatig alle nieuwe tabbladen te moeten verwijderen. Kan ik een macro maken die alle tabbladen van Blad1 t/m BladX verwijdert? En die er geen probleem van maakt als de nummering niet doorloopt?
In het voorbeeld wil ik dan dat alle tabjes zonder kleur (Blad 1, 3 en 4) worden verwijderd.
Tnx!
Bekijk bijlage 2013 Financiele administratie.xlsm
In de bijlage zijn een aantal tabbladen verwijderd om aan de bestandgrootte-vereisten te voldoen. De functionaliteit van de spreadsheet is weg, je kunt de draaitabel daarom niet updaten!

 

[leofact]

De volgende routine verwijderd alle bladen die met "Blad" beginnen zonder waarschuwingen

Sub VerwijderBladen()
Dim sh As Worksheet
    Application.DisplayAlerts = False
        For Each sh In ThisWorkbook.Worksheets
            If Strings.Left(sh.Name, 4) = "Blad" Then sh.Delete
        Next sh
    Application.DisplayAlerts = True
End Sub

Mvg Leo

 

[Patrick6411]

Tanx Leo,
Dat was em!