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

--

HTH

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


"L.Wall" <john_doe@hotmail.com> wrote in message
news:CE7B4821-D836-4274-A24B-016315703A8D@microsoft.com...
> 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