Sorry, still not clear, extract the column name in reference to what?
Anyway you can add to your VBA macro code something like this:

    lstr = Mid(Range("AE1").Address(), 2)
    Ln = InStr(1, lstr, "$")       
    MsgBox (Left(lstr, Ln - 1))
*displays AE

>I would like to extract the column name through a VB macro, to do some calculations, hence I require VB code for the same. Thanks.