' Add to Module 1
Sub GoToActualSelection()
Dim myRange As Range
Set myRange = Selection
myRange.Select
End Sub
' Add to Worksheet
Private Sub Worksheet_Activate()
GoToActualSelection
End Sub
' Add to Workbook
Private Sub Workbook_Open()
GoToActualSelection
End Sub