Here's a quick macro which, on a new sheet, will list all the ranged names in
the active workbook  (you can do this just as easily without VBA by selecting
Insert >> Name >> Paste >> Paste List).

Sub ListNames()
'On a new sheet, list all range names in active workbook.
Sheets.Add After:=Sheets(Sheets.Count)
Range("A1").Select
Selection.ListNames
End Sub