meerdere tabbladen zichtbaar laten in excel bestand

[Noro]

Beste,

In mijn excelbestand heb ik een stuk code gezet die ervoor zorgt dat het home tabbald altijd open staat en alle andere tabbladen gesloten zijn. Kan iemand mij helpen hoe ik buiten het tabblad home nog een aantal tabbladen kan toevoegen hieraan?

Private Sub Worksheet_Activate()
Dim sh As Worksheet

For Each sh In ThisWorkbook.Sheets
If sh.Name <> "Home" Then
sh.Visible = xlSheetHidden

End If
Next sh
End Sub

Alvast bedankt!

Noro

 

[edmoor]

Bijvoorbeeld:

Private Sub Worksheet_Activate()
    Dim sh As Worksheet

    For Each sh In ThisWorkbook.Sheets
        Select Case sh.Name
            Case "Home", "Blad1", "Nog een blad enz."
            Case Else
                sh.Visible = xlSheetHidden
        End Select
    Next sh
End Sub

 

[Noro]

Bedankt

Edmoor werkt perfect, dankjewel!

 

[edmoor]

Graag gedaan. En welkom op Helpmij