do you mean just make a list?

put this code in the workbook with your names


Sub getnames()
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim wkb As Workbook
Dim cou As Integer
Set wkb = Workbooks.Add
wkb.Sheets(1).Cells(1, 1).Activate
For cou = 1 To ThisWorkbook.Names.Count
ActiveCell = ThisWorkbook.Names(cou).Name
ActiveCell.Offset(1, 0).Activate
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub



--
When you lose your mind, you free your life.
Ever Notice how we use '' for comments in our posts even if they aren''t
expected to go into the code?


"paul johnson" wrote:

I have a spreadsheet using 100 plus named ranges.
Is there a quick way to document all these ranges?

Many Thanks

Paul