How to convert number to column name in vba

vba how to convert a column number into an Excel column

Function ColName(n)
    ColName = Split(Cells(, n).Address, "$")(1)
End Function