स्तंभ संख्या excel vba

एक्सेल vba स्तंभ नाम से कॉलम संख्या

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