ExcelVBA Range(”A1”) で、Aを取得したい（列をアルファベットで取得したい）なら　Split(Range("A1").Address,"$")(1)

Excel 
 chrCulum = Split(Range("A1").Address,"$")(1)


ネタ元