Cómo convertir carta rango de excel

excel vba función para convertir el número de columna a la carta

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