Sub NextSheetSameCell()
 Dim strCellAddress As String
 ' Die Adresse des ausgewählten Bereichs ermitteln.
 strCellAddress = _
 ActiveWorkbook.Selection.Address
 ' Prüfen, ob dieses Blatt das letzte in der aktiven Arbeitsmappe ist.
 If Worksheets.count > ActiveSheet.Index Then
 ' Es ist nicht das letzte, also das nächste aktivieren.
 ActiveSheet.Next.Activate
 Else
 ' Es ist das letzte, also das erste aktivieren.
 Worksheets(1).Activate
 End If
 ' Den Bereich auswählen.
 Range(strCellAddress).Activate
End Sub