使用VBA在工作表中列出所有定义的名称

Sub NamesList()
    Dim wks As Worksheet
    Dim nm As Name
    '可以修改为你想置名称和引用区域的工作表
    Set wks = Sheet1
    '忽略错误
    On Error Resume Next
    '遍历名称
    For Each nm In Names
        '在列A中列出名称
        wks.Range("A" & Rows.Count).End(xlUp)(2) = nm.Name
         '在列B中列出名称指向的区域
        wks.Range("B" & Rows.Count).End(xlUp)(2) = "'" & nm.RefersTo
    Next nm
    '恢复错误触发
    On Error GoTo 0
End Sub