Text Direction from right to left in Excel

[odehjas]

Hello,

How to set the text direction from right to left in Excel using the VBA. Thanks.

Regards
Odeh

[malik641]

Thanks to John Walkenbach's book: Microsoft Excel 2000 Formulas

Function REVERSETEXT(text) As String
'Returns its argument, reversed
Dim TextLen As Integer
Dim i As Integer
TextLen = Len(text)
For i = TextLen To 1 Step -1
    REVERSETEXT = REVERSETEXT & Mid(text, i, 1)
Next i
End Function

Use this in a cell as:

=REVERSETEXT(A1)

Where A1 would have your text.
HTH

[odehjas]

Many Thanks