Dear Yuri,

Thanks very much for your code. It works just fine !

The job was to take out the address of an active cell, find out it's column, and then do a calculation on the entire column. By using 'ActiveCell' in your code, I've got the desired result.
lstr = mid(ActiveCell.Address(), 2)
Ln = InStr(1, lstr, "$")
MsgBox (Left(lstr, Ln - 1))
Thanks again !

Regards,

Steve.