Converting a Column Number to a Column Letter

[KingTamo]

Thanks for reply
But I have an error too when testing the code

Sub Test()
Astr = Split(Cells(1, Along).Address, "$")
MsgBox Astr(1)
End Sub