Try this UDF
Function strReverse(ByVal cell As Range) As String    strReverse = VBA.strReverse(cell.Value)
End Function