try s'th like:

dim nm as name
dim n as long

With Worksheets("Master").Cells(1)
for each nm in activeworkbook.names
.offset(n).resize(,2) =
array(nm.name,nm.refersto)
n=n+1
next
end with




--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


aking1987 wrote :


The list of worksheet names is continually growing...

D4:d8 only gives space for 4 names.

can it be done by column? So it can continue to grow infintly

Thank you!