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

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

go to a blank worksheet
Insert=>Name=>Paste. . .

select the paste list button.

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

You may want to get Jan Karel Pieterse's (with Charles Williams and Matthew
Henson) Name Manager:

You can find it at:
NameManager.Zip from http://www.oaltd.co.uk/mvp