Sheets met een bepaalde naamstructuur niet opnemen in list.

[bgoo]

Hallo mensen,

Ik heb een list, deze list sommeert alle sheets in het werkblad zodat je makkelijk kan navigeren van sheet naar sheet.

Private Sub UserForm_Initialize()

Dim sh As Worksheet
With Navigation
    .Clear
    
    For Each sh In Worksheets
        If Not sh.Name = "ZZZ MENU" And Not sh.Name = "ZZZ KASSTAAT" Then .AddItem sh.Name
        
          Next
End With

End Sub

Zoals je ziet worden 2 sheets niet opgenomen in de lijst.
Echter wil ik sheets waar in de naam "#betaald" staat ook niet opgenomen in de lijst.
Dus bijvoorbeeld "#betaald erik" en "#betaald jan".

Hartelijk dank!

 

[Cobbe]

Niet echt getest maar zou het moeten doen:

Private Sub UserForm_Initialize()

Dim sh As Worksheet
With Navigation
    .Clear
    
    For Each sh In Worksheets
         
        If Not sh.Name = "ZZZ MENU" And Not sh.Name = "ZZZ KASSTAAT" And Not InStr(sh.Name, "#betaald") > 0 Then .AddItem sh.Name
        
          Next
End With

End Sub

 

[bgoo]

Doet het, thx!