Coluna número de vba do excel

excel vba Coluna Nome da Coluna Número de

' 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)