mirror image text or numbers

[Guest]

How can a mirror image of the text (or numbers), in one cell be created in
another cell?

 

[L. Howard Kittle]

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