Thanks Jon, its just to remove the names and leave everthing else
intact. I'll get it a go


Jon Peltier wrote:

To remove the names, but leave the data intact:

For Each nName In ActiveWorkbook.Names
nName.Delete
Next

To clear the ranges of data but leave the names:

For Each nName In ActiveWorkbook.Names
On Error Resume Next
nName.RefersToRange.ClearContents
On Error Goto 0
Next

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Sean" wrote in message
oups.com...
Would anyone have some code that I could run to delete all named ranges
on all woksheets within a file?


Thanks