Sub MyRevText() Dim oRng As Range Set oRng = Selection.Range oRng.Text = StrReverse(oRng.Text) oRng.Select End Sub