Code:
Astr = Split(Cells(1, Along).Address, "$")(1)
Where
Along = Column number to be converted to letter

Astr = column letter returned