For Each nme In Activeworkbook.Names
Debug.Print nme.Name
Next nme

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Adesso" wrote in message
...
Part of my homework assignment is to paste a list of all existing named
ranges. How do I do that?