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