कैसे कन्वर्ट करने के लिए पत्र श्रृंखला के लिए एक्सेल

एक्सेल vba फ़ंक्शन परिवर्तित करने के लिए स्तंभ संख्या के लिए पत्र

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