Peter

see if this works for you:

Function ReverseText(rt As Range)
Application.Volatile
Dim iLength As Integer
Dim iCount As Integer
iLength = Len(rt)
ReverseText = ""
For iCount = iLength To 1 Step -1
ReverseText = ReverseText & _
Mid(rt.Value, iCount, 1)
Next iCount
End Function

Regards

Trevor


"Peterke" wrote in message
...
Hi,

i have an unusual question.
Is it possible to reverse any text in excel using vba?
for instance when i type "excel" it would look like "lecxe" on the screen.

regards,
Peter