Wechseln zwischen Arbeitsblättern anhand mehrerer Schaltflächen

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

216403    216203

Problem: Über mehrere Schaltflächen 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