Does this help?

Sub listnamesandrefersto()
For Each n In ThisWorkbook.Names
lr = Cells(Rows.Count, "a").End(xlUp).Row + 1
Cells(lr, 1) = n.Name
Cells(lr, 2) = Right(n.RefersTo, Len(n.RefersTo) - 1)
Next
End Sub


--
Don Guillett
SalesAid Software

"paul johnson" wrote in message
...
I have a spreadsheet using 100 plus named ranges.
Is there a quick way to document all these ranges?

Many Thanks

Paul