Reeks sheets verwijderen Excel VBA

[royb73]

Beste,

Ik ben op zoek naar een vba code die een reeks sheets verwijderd (of met een aantal karakters, in dit geval 3 karakters).

Het gaat namelijk om alle maanden (JAN, FEB, MRT etc.) De maanden hebben allemaal 3 karakters.

Hieronder heb ik een code wat op zich wel werkt, echter als deze bladen niet aanwezig zijn, dan krijg ik een foutmelding:

Dim vaNames As Variant

Application.DisplayAlerts = False

vaNames = Array("JAN", "FEB", "MRT", "APR", "MEI", "JUN", "JUL", "AUG", "SEP", "OKT", "NOV", "DEC")

 Worksheets(vaNames).Delete

Application.DisplayAlerts = True

 End If

Wat de bedoeling is, dat de code checkt of deze maanden aanwezig zijn. Zo ja, dan deze verwijderen. Zo nee, dan niets doen.

Mvg

 

[snb]

Waarom zou je bladen verwijderen die, als ze verwijderd zijn, een foutmelding geven. Dan kun je ze beter handhaven.
Een VBA code verwijderd nooit iets, wellicht verwijdert ie.
Was je al bekend met

sn = Application.GetCustomListContents(3)

 

[royb73]

Beste snb,

Het is gelukt.

     listArray = Application.GetCustomListContents(3)
    
    For J = Worksheets.Count To 1 Step -1
        wsName = LCase(Worksheets(J).Name)
        For I = LBound(listArray, 1) To UBound(listArray, 1)
            If wsName = listArray(I) Then
                Worksheets(J).Delete
                Exit For
            End If
        Next
    Next