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

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