回文を考えるときのツール

回文を考えるときのツールを、マクロ（VBA）で組んでみた。
内容は至極簡単で、マクロを初心者に教える教材としても良いのではないか。
A列（A1,A2,A3...）セルに、ひらがな/カタカナ/アルファベットで単語を入れてマクロを実行すると、B列に逆から読んだ文字列が表示されます。
----------
Sub Palindrome()

Dim uText As String
Dim pText As String

Dim uLen As Integer

Dim i As Integer

Range("A1").Select

Do Until ActiveCell.Value = ""

uText = ActiveCell.Value
uLen = Len(uText)

For i = uLen To 1 Step -1

pText = pText + Mid(uText, i, 1)

Next

ActiveCell.Offset(0, 1).Value = pText

pText = ""

ActiveCell.Offset(1, 0).Select

Loop

Range("A1").Select
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1

End Sub