Sub RemoveNames()
Dim MyName As Name
For Each MyName In Worksheets("Sheet1").Names
MyName.Delete
Next MyName
End Sub

Regards

--
Return email address is not as DEEP as it appears
"Greg" wrote in message
...
Hi,

I downloaded the Name Manager developed by Excel MVP Jan Karel Pieterse
and
it is a great add-in, taking my hat off.

But I need to have some code at the end of my macro that would get rid of
the named ranges that are local to a sheet. I am running some external
query
from Yahoo and it creates a bunch of local named ranges I don't need.

Thank you in advance,

______
Regards,
Greg