列番号をアルファベットに変換する

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