Get Column Alphabet Based On Data It Contains Or Column Heading Using VBA?

How to get the Column Alphabet based on the Data it contains or the Column Heading using VBA?

Is it possible to get the Column Alphabet using any Macro or any function that within a Module it can always take the New Column Name during Execution..

Example: I have certain Columns where I have Yes and No Tick using the Wingdings P and Y..
Now these Columns are alternately Placed and there are six columns in all and they are spread over 12 Columns as the Alternate COlumns is reserved for Manual Entries.

Now I intend to increase the Manual Entry Columns but the problem is that every time I do that I need to make changes in my VBA Code.

Is it possible that even when the Columns are Inserted or Deleted in between before or after these columns I dont need to change the Explicit references by changing some approach.

I am not fuly conversant in VBA but use it whenever things are not completely feasible with Formulas AFTER GOOGLING.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("X3:X13")) Is Nothing Then ' You can Change the range here
Cancel = True

[Code]....

As you can see the Ranges are Alternately Placed and there are about 6 such Columns with the above TICKS..

Now, how do I keep it FLoating so that even after changing the COlumn Location it does not need to get Updated i.e. X and Z Column Alphabets..