' Column name to column number ColName = "A" Debug.Print Range(ColName & 1).Column ' 1 ' Column number to column name ColNb = 1 Debug.Print Split(Cells(, ColNb).Address, "$")(1)