[vba]MsgBox Split((ActiveCell.Address(1, 0)), "$")(0)[/vba]