Get the column address in alphabets - i.e. A, B, C .. etc

I am trying a macro which automatically populates formulae for cells like (=A1*B2), say. Of this, B is to be detemined through a macro.

Now, within a Macro, How do I get this "B". If I try activecell.column, it gives 2. I get column in activecell.address, but I have to strip off rowd details. Is there any other way to get the alphabetical address of a column from within VBA ?

Regards,