Option Explicit Private oRng As Range Sub SetSelection() Set oRng = Selection.Range End Sub Sub Reselect() oRng.Select End Sub