Converting a Column Number to a Column Letter

[Rick Rothstein]

When testing the code I have got an error

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

Split returns an array of values, not a single value, so you have to specify which member of the array you want...

MsgBox Astr(1)