Sub NextSheetSameCell()
 Dim strCellAddress As String
 ' Get address of selected range.
 strCellAddress = ActiveWorkbook.Selection.Address
 ' Check if this is the last sheet in workbook.
 If Worksheets.count > ActiveSheet.Index Then
 ' Not the last sheet, so activate the next one.
 ActiveSheet.Next.Activate
 Else
 ' Is the last sheet, so activate the first sheet.
 Worksheets(1).Activate
 End If
 ' Select the range.
 Range(strCellAddress).Activate
End Sub