Come convertire lettera di gamma per excel

excel vba funzione per la conversione di un numero di colonna per lettera

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