Reverse
Function Reverse(CellRef As String)
Dim Length As Integer
Dim Result As String
Dim i As Integer
Length = Len(CellRef)
For i = 0 To Length - 1
Result = Result & Mid(CellRef, (Length - i), 1)
Next i
Reverse = Result
End Function
TEXT function: