Delete nearly all defined names from the active worksheet only

Originally Posted by 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.
...

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.