End Property

expression.End

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