How to Add Letters (A,B,C) to words in Cells Rather Than Numbers (1,2,3)?

[Alex20850]

I have this macro that adds numbers (1,2,3) to words in cells.
The cells are not going to be in alphabetical order.

How can it be adapted to add letters instead?

Sub AddNumbers()
Dim i As Integer
For i = 1 To Selection.Rows.Count
Selection.Cells(i, 1) = Format(i, "00") & ". " & Selection.Cells(i, 1)
Next
End Sub

Tom
****
Harry
would turn into
A. Tom
B. ****
C. Harry

 

[Eric W]

Try:

Sub AddLetters()
Dim i As Integer
    For i = 1 To Selection.Rows.Count
        Selection.Cells(i, 1) = Replace(Cells(1, i).Address(0, 0), 1, "") & ". " & Selection.Cells(i, 1)
    Next
End Sub

 

[Fluff]

As long as you are not going to go above Z, try

Sub AddNumbers()
   Dim i As Integer
   For i = 1 To Selection.Rows.Count
      Selection.Cells(i, 1) = Chr(i + 64) & ". " & Selection.Cells(i, 1)
   Next i
End Sub

 

[Alex20850]

Great, thanks!

 

[Eric W]

Glad we could help!