Zum nächsten Blatt wechseln

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

042198    028898

Problem: Wie kann ich über einen VBA-Befehl zum jeweils nächsten Arbeitsblatt wechseln?

StandardModule: basMain

Sub NaechstesBlatt()
   If ActiveSheet.Index = Worksheets.Count Then
      Worksheets(1).Select
   Else
      ActiveSheet.Next.Select
   End If
End Sub