Tabbladen verbergen

[Sytse1]

Als een tabblad de naam res1 of res2 enz tot res10 heeft moet het blad verborgen worden.
Dit gaat met uitzondering van res10 goed.
Hier de de volgende code.

'tabbladen met tabbladnaam res1 t/m res10 verbergen
For Each ws In ActiveWorkbook.Sheets
ws.Activate
If ws.Name = "res#" Then
ws.Visible = xlVeryHidden
End If
Next

Ik kom er niet achter waarom res10 niet verborgen wordt.

 

[emields]

Er moet altijd minstens 1 tabblad zichtbaar zijn.

 

[edmoor]

Naast wat emields al zei, omdat een # maar naar 1 cijfer kijkt.
Die ws.activate is ook overbodig.
Maak er eens dit van:

[COLOR="#008000"]'tabbladen met tabbladnaam res1 t/m res10 verbergen[/COLOR]
For Each ws In ActiveWorkbook.Sheets
    If ws.Name Like "res*" Then ws.Visible = xlVeryHidden
Next

 

[Sytse1]

emiels en edmoor, bedankt voor jullie meedenken en oplossing.
Er staan altijd 2 sheets in beeld. de overige 10 kunnen voorzoen van een (nieuwe) tabnaam zichtbaar worden of verborgen blijven.
De * ipv van het hekje is de oplossing. (blinde vlek mijnerzijds) en inderdaad is ws.activate is ook overbodig.

 

[HSV]

Ook overbodig is:
ActiveWorkbook.