Excelの「名前の定義」を整理する方法

Option Explicit

' 「名前の管理」に出てこない非表示の名前を、新しいシートに一覧にする
Sub ListHiddenNames()
    Dim n As Name, ws As Worksheet, r As Long

    Set ws = ActiveWorkbook.Worksheets.Add
    ws.Range("A1:C1").Value = Array("名前", "参照範囲", "Excel が使う名前")
    r = 2
    For Each n In ActiveWorkbook.Names
        If Not n.Visible Then
            ws.Cells(r, 1).Value = n.Name
            ws.Cells(r, 2).Value = "'" & n.RefersTo        ' 数式として計算させない
            If IsSystemName(n.Name) Then ws.Cells(r, 3).Value = "はい（触らない）"
            r = r + 1
        End If
    Next n
    ws.Columns("A:C").AutoFit
    MsgBox "非表示の名前：" & (r - 2) & " 個", vbInformation
End Sub

' 一覧を確認したあとで実行：Excel が使う名前以外を「名前の管理」に表示する
Sub ShowHiddenNames()
    Dim n As Name, k As Long

    For Each n In ActiveWorkbook.Names
        If Not n.Visible And Not IsSystemName(n.Name) Then
            n.Visible = True
            k = k + 1
        End If
    Next n
    MsgBox k & " 個の名前を表示しました。" & vbCrLf & _
           "「数式」→「名前の管理」で確認して、不要なものを削除してください。", vbInformation
End Sub

' Excel が自動で作る名前（新しい関数・フィルター・印刷範囲など）は対象外にする
Private Function IsSystemName(ByVal nm As String) As Boolean
    IsSystemName = InStr(nm, "_xlfn.") > 0 Or InStr(nm, "_xlpm.") > 0 _
        Or InStr(nm, "_FilterDatabase") > 0 Or InStr(nm, "_xlnm.") > 0
End Function