Reverse the text in selected cells (Mirroring/Plain Encryption of Text)

   Sub Reverse_Text()
        ' This module will reverse the text of selected cells using StrReverse function.
        ' For e.g. Macro will become orcaM
        Dim MyCell As Range
        For Each MyCell In Selection.Cells
            MyCell.Value = StrReverse(MyCell.Value)
        Next
        MyCell = Nothing
    End Sub