名前定義の取得と削除

名前定義の取得と削除.vba

Sub deleteNameDefine()
    Dim nm As Name
    On Error Resume Next
    i = 1
    For Each nm In ActiveWorkbook.Names
        nm.Delete
        i = i + 1
    Next
    On Error GoTo 0
    MsgBox "名前定義削除の処理完了。削除対象数：" & i
End Sub



Sub showNameCount()
    
    i = 1
    ' ブック内の名前の定義で、ループ
    For Each a In ActiveWorkbook.Names
        i = i + 1
    Next
    MsgBox i
    
End Sub