列番号をアルファベットに置き換える

Split(Columns(1).Address, "$")(2)