Verwijderen tabbladen

[Boerman]

Is het mogelijk om alleen tabbladen te verwijderen met een bepaalde omschrijving. Bijvoorbeeld de tabbladen verwijderen: Blad1, Blad2, Blad3, enz.
Of een deel van de omschrijving. In dit geval, de tabbladen verwijderen met de omschrijving Blad?

Boerman

 

[trucker10]

Probeer deze op een kopie van je bestandje

Sub verwijder_Blad()
Dim sht As Object
Application.DisplayAlerts = False
    For Each sht In ActiveWorkbook.Sheets
        If InStr(1, sht.Name, "Blad", vbTextCompare) > 0 Then sht.Delete
    Next sht
Application.DisplayAlerts = True
End Sub

heb in een leeg bestandje getest , macro wel in een module zetten .

 

[Boerman]

Het werkt, bedankt :thumb:

Boerman