how to convert colm numbers to column letters in vba code example

Example: excel vba function to convert column number to letter

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