you can just iterate through all the available named ranges in Current Workbook and use the values:
try this:
Range("A1") = "Name"
Range("B1") = "Reference"
With Range("A1:B1")
.Font.Bold = True
.Font.Underline = True
End With
intCount = 2
For Each namedRange In ThisWorkbook.Names
Range("A" & intCount).Value = namedRange.Name
Range("B" & intCount).Value = namedRange
intCount = intCount + 1
Next