Function To Reverse a String In a Cell

 
Option Explicit
'http://www.vbaexpress.com/kb/getarticle.php?kb_id=188

Public Function ReverseString(Text As String)
    
    ReverseString = StrReverse(Text)
    
End Function