Delete all named ranges from worksheet

[Martin_H]

Hi,

would it be possible to transform this macro to delete named ranges only from active worksheet?

Thank you.

Sub DeleteNames()
Dim xName As Name
For Each xName In Application.ActiveWorkbook.Names
xName.DELETE
Next
End Sub

 

[veyselemre]

Hi,
Run these codes on a blank page. It will give you a list of your name definitions. It may be necessary to draw a path by looking at these. If you can upload a picture by making a note next to the names you want to be deleted from this list, the problem will be solved better.

Sub listNameRefers()
    Dim xName As Name, sat%
    For Each xName In Application.ActiveWorkbook.Names
        sat = sat + 1
        Cells(sat, 1).Value = "'" & xName.RefersTo
    Next
End Sub

 

[sykes]

NB - place the code in the "ThisWorkbook" module, in your project.

Did you insert the code where I stated? I think possibly, not...
The ME in this instance, refers to ThisWorkbook, and therefore the code needs to be placed in the "ThisWorkbook" module, in your VBA project.
I know it's working, as I've tested it on my system.

 

[Martin_H]

Did you insert the code where I stated? I think possibly, not...
The ME in this instance, refers to ThisWorkbook, and therefore the code needs to be placed in the "ThisWorkbook" module, in your VBA project.
I know it's working, as I've tested it on my system.

My bad.

Working perfectly now!

Thank you sykes.

 

[sykes]

Pleasure, and thanks for the feedback.

 

[sykes]

PS Would you be good enough to just mark post #9 as the solution, instead of #12.

Ta.