Comment convertir une plage de lettre pour excel

excel vba fonction de convertir le numéro de colonne de la lettre

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