maybe something like this. this will list them in the immediate window

Sub name_ranges3() ' dumps all named ranges
Dim nm As Name
For Each nm In ThisWorkbook.Names
Debug.Print nm.Name
Debug.Print Range(nm).Name
Next nm
End Sub

--


Gary


"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