Function REVERSE(rCell As Range)
Dim i As Integer
Dim StrNewNum As String
Dim strOld As String
strOld = Trim(rCell)
For i = 1 To Len(strOld)
StrNewNum = Mid(strOld, i, 1) & StrNewNum
Next i
REVERSE = StrNewNum
End Function