Ranges - Return

''However, before leaving my current sheet, I would like to memorize the
''sheet and the cell address that I am about to leave, so that another
''short-cut can bring me back to my exact departure point.

Dim HomeCell As Range

Public Sub Memorise()
    Set HomeCell = ActiveCell
    Application.GoTo Range("Sheet1!A1")
End Sub

Public Sub GoBack()
    HomeCell.Worksheet.Activate
End Sub