Sub NextSheetSameCell()

Dim rngCurrentCell As Range
Dim shtMySheet As Worksheet
Dim strCellAddress As String

'strCellAddress = ActiveCell.Address

'Kommentieren Sie die vorangehende Zeile aus, um die Adresse 
'der zuletzt aktiven Zelle festzuhalten, oder kommentieren Sie die
'folgende Zeile aus, um die Adresse der aktiven Zelle festzuhalten.

strCellAddress = _
 ActiveWindow.RangeSelection.Address

Set shtMySheet = ActiveWindow.ActiveSheet

If Worksheets.Count > shtMySheet.Index Then
 
 shtMySheet.Next.Activate
 Range(strCellAddress).Activate
 
 Else
 
 Worksheets(1).Activate
 Range(strCellAddress).Activate
 
End If

Set shtMySheet = Nothing

End Sub