Reverse strings in a selection
Sub ReverseStringsInASelection()
Dim X As Range
Dim Y As Integer
Y = 0
Set X = Selection
For Each X In Selection
ActiveCell.Offset(Y, 1).Value = StrReverse(X)
Y = Y + 1
Next X
End Sub
User Defined Function to Reverse A String
Function ReverseString(text As String)
ReverseString = StrReverse(text)
End Function