Excel-VBA, как преобразовать номер столбца в столбец Excel

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