sSelection = Selection
iStart = Selection.Range.Start  ' save the highlighted address
iEnd = Selection.Range.End

Example 1: Using the Selection object.

Back to Article