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