Selection Property

Returns a Selection object that represents a selected range or the insertion point.

expression   Required. An expression that returns one of the objects in the Applies To list.

Example

This example tests whether the current selection is text. If it is text, the selected text is then displayed in a message box.

Sub Selectable()

    If Selection.Type = pbSelectionText Then MsgBox Selection.TextRange

End Sub