To convert from number to character a column reference, have a look on next code

Option Explicit

Sub Macro1()
Dim ColNb   As Integer
Dim Temp
Dim ColChar
   ColNb = 13
   Temp = Cells(1, ColNb).Address
   ColChar = Split(Temp, "$")(1)

End Sub