Delete nearly all defined names from the active worksheet only

[kjjjjshab]

Excel 2007

Need to delete nearly all defined names from the active worksheet only. Worksheets can be named anything.

These two worksheets must be excluded from having any names deleted:

.codename(“Sheet1”)
.name(“Summary”)

Also, I don’t want any ~system names deleted, so exclude:
(although Print_Area is the only one I’ve seen…)

*_FilterDatabase
*Print_Area
*Print_Titles
*wvu.*
*wrn.*
*!Criteria

I have been trying to get something like this working (from searching these and other forums):

Please Login or Register  to view this content.

I’ve tried some mixes with:

Please Login or Register  to view this content.

etc. but nothing seems to work.

I don’t really need to cycle through with each name, but I came across that code first and it looked like a good thing to have in while troubleshooting…

http://www.mrexcel.com/forum/excel-q...heet-only.html

I would appreciate any advice as to how to proceed. Thank you.

[Alf]

Using the Name quality you get the sheet name and the range address of the particulart name so a macro like this could be used.

Please Login or Register  to view this content.

will delete all range names on all sheets in a workbook except for the range names on sheet1
Alf

[kjjjjshab]

Using the Name quality you get the sheet name and the range address of the particulart name so a macro like this could be used.
...

will delete all range names on all sheets in a workbook except for the range names on sheet1
Alf

Thanks. I'll see if I can get that to work with ActiveSheet tomorrow.

What i really need help with is restricting the deletion of Names to the active worksheet (that can be named anything). I have a test for the two sheets i need to exclude, and should be able to avoid deleting Print_Area, etc. but i cannot get the Sub to restrict itself to the active sheet.