Using the Names Object to List All Named Ranges
Sub TestListNames()
ListWorkbookNames ThisWorkbook, ThisWorkbook.Worksheets(2).range("a2")
End Sub
Sub ListWorkbookNames(wb As Workbook, rgListStart As range)
Dim nm As name
For Each nm In wb.Names
rgListStart.value = nm.name
rgListStart.Offset(0, 1).value = "'" & nm.RefersTo
Set rgListStart = rgListStart.Offset(1, 0)
Next
End Sub
Related examples in the same category