Quote Originally Posted by KingTamo View Post
Thanks for reply
But I have an error too when testing the code
Code:
Sub Test()
Astr = Split(Cells(1, Along).Address, "$")
MsgBox Astr(1)
End Sub
Did you notice the explanation for "Along" from the first message (from where the code snippet came)? Namely...

"Where
Along = Column number to be converted to letter"

The 1 inside the Cells call is the row and Along is a variable that should be assigned (or fully replaced by) a column letter.