object that represents a selected range or the insertion point.
expression.Selection
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