BUY EXCEL BOOKS ONLINE: 1. VBA & Macros      2. VBA for Modelers      3. Excel 2013 VBA and Macros     
4. Excel VBA for Dummies      5. Excel with VBA & .NET      6. Mastering VBA      7. Excel 2013 Programming

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
Anonymous said...

MyCell = Nothing

This is not required.