Reverse Cell Contents (Mirror)

Add to Favorites
This macro will completely reverse the contents of any cell. This means that if you have a cell which reads "My Text" and you run this macro on that cell, it will then read "txeT yM".

This macro will not work on cells which contain formulas. It will only work on cells that contain strictly text and numbers.

Run this macro on a selection of cells in a worksheet. This means that you select any number of cells and then run this macro and it will reverse the contents of every cell which you selected.

Where to install the macro:  Module

Reverse Cell Contents (Mirror)

Sub Reverse_Cell_Contents()

   If Not ActiveCell.HasFormula Then
        sRaw = ActiveCell.Text
        sNew = ""
        For j = 1 To Len(sRaw)
            sNew = Mid(sRaw, j, 1) + sNew
        Next j
        ActiveCell.Value = sNew
   End If
End Sub

How to Install the Macro
  1. Select and copy the text from within the grey box above.

  2. Open the Microsoft Excel file in which you would like the Macro to function.

  3. Press "Alt + F11" - This will open the Visual Basic Editor - Works for all Excel Versions.  Or For other ways to get there, Click Here.

  4. On the new window that opens up, go to the left side where the vertical pane is located. Locate your Excel file; it will be called VBAProject (YOUR FILE'S NAME HERE) and click this.

  5. If the Macro goes in a Module, Click Here, otherwise continue to Step 8.

  6. If the Macro goes in the Workbook or ThisWorkbook, Click Here, otherwise continue to Step 8.

  7. If the Macro goes in the Worksheet Code, Click Here, otherwise continue to Step 8.

  8. Close the Microsoft Visual Basic Editor window and save the Excel file. When you close the Visual Basic Editor window, the regular Excel window will not close.

  9. You are now ready to run the macro.

Excel Forum