Function revstr(s As String) As String 
'
' revstr Macro
'

revstr = ""
 
If s = "" Then Exit Function
 
For j = Len(s) To 1 Step -1   
    revstr = revstr & Mid(s, j, 1)
Next

End Function