Delete all defined named ranges from a selection

[gaudrco]

Is there a way to delete all named ranges from a selection? Here is the selection that I am trying to delete the named ranged from:

Range("CompOverviewTable[[#Headers],[Competitor_one]]").Select
    Range(Selection, Selection.End(xlToRight)).Offset(-1, 0).Select

 

[Yongle]

but those cells have a defined name (range)

Can you explain further by providing one example

1. what is the NAME of the named range in cell immediately above Competitor_one
2. what is the RefersTo formula for that named range



-

 

[gaudrco]

1. The name of the named range above Competitor_one is "Competitor_one". When each named range is created, it takes the name of the cell below it.
2. The RefersTo formula refers to the cell itself. So for the named range above "Competitor_one", the RefersTo= 'Competitor Overview Data'!$E$3

For "Competitor_two", RefersTo='Competitor Overview Data'!$F$3
For "Competitor_three" RefersTo='Competitor Overview Data'!$G$3
For "Competitor_four" RefersTo='Competitor Overview Data'!$H$3
.. and so on

 

[gaudrco]

Any other ideas for deleting all defined name ranges in a selection ("3:3") on sheet ("Competitor Overview Data")?

 

[Yongle]

been busy - will look at this for you tomorrow