sheets verbergen

[Plotinus]

Ik de volgende routine:

Sub Verberg_bladen(pro)
    If (pro) Then
    On Error Resume Next
     For Each Sh In Sheets
          If Sh.Name <> "Info" Then Sh.Visible = xlVeryHidden
        Next
    Else
        For Each Sh In Sheets
            Sh.Visible = True
        Next
    End If
End Sub

Dit verbergt alle bladen of haalt ze weer terug afhankelijk van de inhoud van 'pro'.

Nu wil ik dit slechts op een selectie toepassen en heb al, als opstapje, het volgende geprobeerd:

 Sheets(Array("januari", "februari", "maart", "april")).visibele = xlVeryHidden

Dit lijkt echter niet te werken. Iemand een idee hoe ik dit voor elkaar krijg?

 

[edmoor]

Probeer het eens zo:

Sub Verberg_bladen(pro)
    If pro Then
        For Each sh In Sheets
            Select Case sh.Name
                Case "januari", "februari", "maart", "april"
                    sh.Visible = xlVeryHidden
            End Select
        Next sh
    Else
        For Each sh In Sheets
            sh.Visible = True
        Next
    End If
End Sub

 

[Plotinus]

dank edmoor; het werkt!

 

[snb]

Sub M_Verberg_bladen(pro)
  For Each sh In Sheets
    sh.visible=-1 +3*(instr("januarifebruarimaartapril",sh.name)>0)*pro
  Next
End Sub

 

[Plotinus]

Dit ga ik van het weekend eens bestuderen hoe het werkt, want ik begrijp het niet helemaal. Het heeft in ieder geval de charme van 'kort maar krachtig.'