End Property

Sets or returns a Long that represents the ending character position of a selection or text range. Read/write.

expression   Required. An expression that returns a TextRange object.

Example

This example starts the selection on the 50th character of the current text box shape and ends on the 150th character, then bolds the text.

Sub test2()
    With Selection.TextRange
        .Start = 50
        .End = 150
        .Font.Bold = msoTrue
    End With
End Sub