VBA का उपयोग करके एक्सेल में डायनामिक कॉलम का नाम कैसे दें

मैं थोड़ी देर के लिए वीबीए सीख रहा हूं लेकिन एक समस्या है जिसका मैं सामना कर रहा हूं कि जब तक मुझे पता नहीं चला तब तक मैं इसका पता नहीं लगा पाया।

मैं वीबीए का उपयोग करके कॉलम का नाम देने में सक्षम होना चाहता हूं, इसलिए मैं इसे बाद में अन्य कोशिकाओं/कॉलम में संदर्भ कॉलम (इंडेक्स फ़ंक्शन का उपयोग करके) के रूप में उपयोग कर सकता हूं।

मुझे पता है कि तय किए गए कॉलम का नाम कैसे देना है। लेकिन वह नहीं है जिसकी मुझे तलाश है।

मेरी समस्या का उदाहरण:

इस महीने मैं कॉलम D को TotalAmount नाम दे रहा हूं। वीबीए कोड हो सकता है:

ActiveWorkbook.Names.Add Name:="TotalAmount", RefersToR1C1:="=Sheet1!C4"

मैं INDEX फ़ंक्शन का उपयोग करके अन्य कक्षों में उस कॉलम का उल्लेख करूंगा।

हालांकि, अगले महीने मैं कॉलम D से ठीक पहले एक नया कॉलम (पिछले महीने की बिक्री मान लें) जोड़ रहा हूं। इसलिए अगले महीने मैं जिस नए कॉलम का नाम TotalAmount रखना चाहता हूं, वह D के बजाय कॉलम E होगा।

मुझे पता है कि नया कॉलम जोड़ते समय कॉलम का नामकरण नहीं बदलना चाहिए और कॉलम E स्वतः ही TotalAmount कॉलम बन जाएगा। हालाँकि, मैं इस पर भरोसा नहीं कर सकता क्योंकि एक्सेल शीट अलग-अलग लोगों द्वारा एक्सेस की जाती है और हर कोई अपनी गणना कर रहा है।

तो मैंने यह भी कोशिश की (मुझे यकीन है कि यह बेवकूफ है लेकिन हे, मैं अभी भी एक नोब हूं) लेकिन यह काम नहीं किया :(

Sub Macro4()
    Range("D1").Select 
    '(I can select the desired cell each month using the search function)
    Dim i As Integer
    i = ActiveCell.Column
    ActiveWorkbook.Names.Add Name:="TotalAmount", RefersToR1C1:="=Sheet1!Ci"
End sub

इसलिए मैं बहुत आभारी रहूंगा यदि कोई मेरी मदद कर सकता है या इस विषय पर मेरा मार्गदर्शन कर सकता है।