Excel: Record your location and return to it
Sub RecordLocation()
Set currentSelection = Selection
TopRow = ActiveWindow.VisibleRange.Cells.Row
TopCol = ActiveWindow.VisibleRange.Cells.Column
End Sub
Sub ReturnToLocation()
currentSelection.Select
ActiveWindow.ScrollRow = TopRow
ActiveWindow.ScrollColumn = TopCol
End Sub