Sub NextSheetSameCell()

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

'strCellAddress = ActiveCell.Address

'Comment out the line above to record the selected rangeÕs address,
'or comment out the line below to record the active cellÕs address.

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