To list the names of the ranges and the sheets they exist in:

for each n in thisworkbook.names
sheet1.cells(n.index,1).value = n.name
sheet1.cells(n.index,2).value
mid(n.RefersTo,2,instr(n.RefersTo,"!")-2)
next


Co

--
colofnatur
-----------------------------------------------------------------------
colofnature's Profile: http://www.excelforum.com/member.php...fo&userid=3435
View this thread: http://www.excelforum.com/showthread.php?threadid=54898