Microsoft Office Forums - View Single Post - How to get start and end range indices of a selection

gmayor · 07-02-2017, 05:04 AM

Declare and apply a range to the selection, while it is selected e.g.

Code:

Sub Macro1()
'Graham Mayor - http://www.gmayor.com - Last updated - 02 Jul 2017
Dim oRng As Range
    Set oRng = Selection.Range
    If Len(oRng) = 0 Then
        MsgBox "Nothing selected!"
    Else
        'do something with orng
    End If
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub