How about the following code:<PRE>Sub ReverseWords()
Dim WorkingText as string, ReversedText As String
Dim PrevSpace as integer, NextSpace As Integer
OriginalText = InputBox("Enter text to be reversed word by word")
WorkingText = " " & Replace(OriginalText, " ", " ") & " "
Do
PrevSpace = Application.WorksheetFunction.Search(" ", WorkingText, PrevSpace + 1)
NextSpace = Application.WorksheetFunction.Search(" ", WorkingText, PrevSpace + 1)
ReversedText = ReversedText + StrReverse(Mid(WorkingText, PrevSpace + 1, NextSpace - PrevSpace))
Loop Until NextSpace = Len(WorkingText)
MsgBox ReversedText
End Sub</PRE>
It will reverse the text word by word.
_________________
Kind regards,<font size="5"><sup><span style="text-decoration: overline">AL</span></sup><u><sub>CHARA</sub></u></font
This message was edited by Al Chara on 2002-07-31 08:51
This message was edited by Al Chara on 2002-07-31 08:54