Cum de a converti scrisoare gama pentru excel

excel vba funcție pentru a converti numărul de coloană la scrisoare

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