Microsoft Office Excel column number to name

gistfile1.bas

Function ColNum2Name(Col As Long) As String
    Dim C As Integer
    Col = Col - 1 ' 1 -> A, 26 -> Z, 27 -> AA
    If (Col >= 0) Then
        While (Col >= 0)
            C = Col Mod 26
            Col = Col \ 26 - 1
            ColNum2Name = Chr$(Asc("A") + C) + ColNum2Name
        Wend
    Else
        ColNum2Name = "##ERR!##"
    End If
End Function