Как да конвертирате в обхвата на букви за Excel

функция на excel vba за преобразуване на номера на колоната в буква

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