कैसे करने के लिए संख्या में कनवर्ट करने के लिए स्तंभ नाम में vba

vba कैसे कन्वर्ट करने के लिए एक कॉलम में संख्या को किसी Excel स्तंभ

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