Macro from Number to Letter

[mdmackillop]

Guessing you want to change 1 to 8 to letters
[VBA]
Sub Macro3A()
'Macro converts a number(1) to a letter
Dim cel As Range
Application.ScreenUpdating = False
With Sheets("Breeder")
For Each cel In .Range("I2:O24")
If cel <> "" Then cel = Chr(64 + cel)
Next
End With
End Sub

[/VBA]