Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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