cleaning up obsolate names using For Each... In ... Next

I would greatly appreciate any help as I am totally stuck.

When I delete a Range (i.e. column) with named cells the names are not deleted.
I am trying to write a code to delete leftovers. So far I have:

Please Login or Register  to view this content.

I use the Immediate window to check if I get any hits and "Names manager" to confirm that there should be.

I have no idea what is wrong, as following works:

Please Login or Register  to view this content.

as well as:

Please Login or Register  to view this content.

try this,

Please Login or Register  to view this content.

Do not use 'reserved' names for variable names.
You didn't check a property of a 'name'.

You could have been successful with:

Please Login or Register  to view this content.

Please note that snb's suggestion will also delete non range referenced names, which may not be something you want to happen.

If you use a Name to store some static text then it too will be deleted. For example.

Name_6: ="Hello World"