Есть ли в VBA функция переводящая номер столбца в его буквенный эквивалент в Excel

Dim a
a = Cells(1, 56).Address(0, 0)
a = Left(a, Len(a) - 1)
Debug.Print a

Debug.Print split(application.ConvertFormula ("R1C56",xlR1C1 ,xla1),"$")(1)

Узнаём имя 6-го столбца
 
MsgBox Split(Cells(1, 6).Address, "$")(1)

Function strCol(n As Integer) As String
    With Cells(1, n)
        strCol = Replace(.Address(0, 0), .Row, "")
    End With
End Function

Function Num2ABC(ByVal x As Long) As String
x = x - 1
Do
Num2ABC = Chr$(65 + x Mod 26) & Num2ABC
x = x \ 26 - 1
Loop While x >= 0
End Function

Function Num2ABC(ByVal x As Long) As String
    Dim i As Integer
    Do While x > 0
        i = x Mod 26
        If i = 0 Then
            Num2ABC = "Z" & Num2ABC
            x = x \ 26 - 1
        Else
            Num2ABC = Chr$(64 + i) & Num2ABC
            x = x \ 26
        End If
    Loop
End Function

Function Num2ABC(ByVal x As Long) As String
Do
Num2ABC = Chr$(65 + (x - 1) Mod 26) & Num2ABC
x = (x - 1) \ 26
Loop Until x = 0
End Function

Cells(1, "FJD").Column

Function ABC2Num(ByVal x As String) As Long
Dim i&
  x = UCase(x)
  For i = 1 To Len(x)
    ABC2Num = ABC2Num * 26 + AscW(Mid$(x, i, 1)) - 64
  Next
End Function