Auswahl des jeweils nächsten Blattes

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

225804    221604

Problem: Es soll das jeweils nächste Blatt unter Berücksichtigung ausgeblendeter Blätter ausgewählt werden.

StandardModule: Modul1

Sub SelectSheet()
   Dim iWks As Integer
   iWks = ActiveSheet.Index + 1
   If iWks > Worksheets.Count Then iWks = 1
   Do Until Worksheets(iWks).Visible
      iWks = iWks + 1
      If iWks > Worksheets.Count Then iWks = 1
      
   Loop
   Worksheets(iWks).Select
End Sub