When testing the code I have got an error

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