エクセルファイル中、ゴミ処分の件

お世話になります。
エクセルファイルのゴミを、数式-名前の管理にて削除し、捨てていますが、さらにVBAで削除する方法もあると思いますが、どなたかプログラム持っておられる方いらっしゃいますか？
教えて下さい。
お願い致します。

No.3 回答者： Qchan1962 回答日時： 2022/06/15 23:34

＃２

ActiveWorkbook.Names　で　用は足りるようで・・
検索すると沢山出て来ますね　エラーのある　なんて言うのも、ごみ処理には使い易いかも？
　
参考　https://excel-ubara.com/excelvba5/EXCELVBA214.html

参考　https://vbabeginner.net/delete-unnecessary-name- …

No.2 回答者： Qchan1962 回答日時： 2022/06/15 23:17

こんばんは

ごみの判断は何かわからないのですが・・こんなものかな？
’AAA　=Sheet1!$A$1:$C$2　TargetName TargetAddress

Sub test()
Dim name_definition '名前
For Each name_definition In Application.Names
If name_definition.Name = "AAA" Then
Application.Names.Item(name_definition.Name).Delete
End If
Next
End Sub

Sub test1()
Dim name_definition 'アドレス
For Each name_definition In Application.Names
If name_definition = "=Sheet1!$A$1:$C$2" Then
Application.Names.Item(name_definition.Name).Delete
End If
Next
End Sub