Hi Tony,
Try this solution via Gary L Brown, June 1, 2006.
Copy into a Module (not the sheet VBA editor) and use =ReverseMe(A1) on the
sheet. Pull down as needed.
Public Function ReverseMe(Select_Cell As Range) As String
Dim i As Integer
Dim strResult As String
Application.Volatile
On Error GoTo err_Function
If Len(Select_Cell.Value) <> 0 Then
For i = Len(Select_Cell.Value) To 1 Step -1
strResult = strResult & Mid(Select_Cell.Value, i, 1)
Next i
End If
ReverseMe = strResult
exit_Function:
On Error Resume Next
Exit Function
err_Function:
Debug.Print "Error: " & Err.Number & " - (" & _
Err.Description & _
") - Function: ReverseMe - " & Now()
Resume exit_Function
End Function
HTH
Regards,
Howard
