Come utilizzare le colonne di numeri in excel vba

excel vba Nome della Colonna per Colonna, il Numero

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