エクセルで、悪さしがちな（他文書などへの）リンク（や名前の定義）をvbaでまとめて消す方法

エクセルで、悪さしがちな
（他文書などへの）リンクをvbaでまとめて消す方法

del_link.bas

'すべてのリンクを削除する/ リンクの解除
Sub subete_no_link_wo_sakujo()

    For Each ls In ActiveWorkbook.LinkSources
        'Debug.Print ls
        ActiveWorkbook.BreakLink Name:=ls, Type:=xlExcelLinks
    Next

End Sub

ちなみに、「消すことができない」リンクは、「名前の定義」に含まれていることが多い。このため、名前の定義をまとめて消すコードは以下。
（名前の定義は、手動でもまとめて消せます。念のため。）

del_name.bas

Sub 参考_名前の定義の削除()

    For Each n In ActiveWorkbook.Names
        'Debug.Print n
        n.Delete
    Next

End Sub