Blattwechsel zwischen xlVeryHidden ausgeblendeten Blättern

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

216303    214903

Problem: Über eine Schaltfläche soll von Blatt zu Blatt gesprungen werden, wobei die übrigen Arbeitsblätter jeweils xlVeryHidden auszublenden sind.

StandardModule: Modul1

Sub EinAusblenden()
   Dim wks As Worksheet
   Set wks = ActiveSheet
   Worksheets(ActiveSheet.Buttons(Application.Caller).Caption).Visible = xlSheetVisible
   wks.Visible = xlSheetVeryHidden
End Sub