How to use columns as numbers in excel vba

excel vba Column Name to Column Number

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