For Each nme In Activeworkbook.Names
nme.Delete
Next nme

--

HTH

RP
(remove nothere from the email address if mailing direct)


"L.Wall" wrote in message
...
How do I delete all named ranges in a sheet at one time rather than having
to
delete them one at a time?
--
L.Wall