via dubbel klik naar tabblad

[popipipo]

Ik heb hier een goed werkend bestand.
Via dubbelklikken kan ik navigeren tussen de verschillende tabbladen.
De eerst 4 tabbladen moeten altijd zichtbaar zijn en de overige alleen als ik via dubbel klikken er heen ga.

Het voorbeeldje heeft 9 bladen maar dit moet uitgebreid worden tot plusminus 30 stuks.

De VBA kan ik op gelijke manier natuurlijk uitbreiden.
Maar ik denk dat het eenvoudiger kan.
Wie wil er eens naar kijken of het echt eenvoudiger kan.

 

[Warme bakkertje]

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
   Application.ScreenUpdating = False
   If Not Intersect(Target, Range("a2:b9")) Is Nothing Then
        verbergen
        With Sheets(Target.Value)
            .Visible = True
            Application.Goto .Range("A1")
        End With
    End If
    Application.ScreenUpdating = True
End Sub

 

[popipipo]

De code doet precies hetzelfde en is maar een klein beetje eenvoudiger en korter

Bedankt :thumb: :thumb: