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