エクセルのブックに＃ＲＥＦがあれば削除するマクロ

質問

エクセル2013です。
そのブック内に、＃ＲＥＦになっている名前があったら、削除してくれるマクロを教えてください。

回答No.1

mt2015 · ベストアンサー

こんな感じかな？
Excel2013では未確認です。

Sub Sample01()
　　Dim oName As Name
　　On Error Resume Next
　　For Each oName In ActiveWorkbook.Names
　　　　If oName.Value Like "*[#]REF[!]*" Then
　　　　　　oName.Delete
　　　　End If
　　Next
End Sub

お礼

2013でばっちりでした。ありがとうございました。

回答No.3

keithin

sub macro1()
　dim n as name
　for each n in activeworkbook.names
　　if cint(cverr(evaluate(n.value)))=2023 then n.delete
　next
end sub

とか。

お礼

さらに、こういうやりかたもあるんですか。ありがとうございました。

回答No.2

Chiquilin

Sub Macro1()
Dim nm As Name
For Each nm In ActiveWorkbook.Names
If Evaluate("IFERROR(ERROR.TYPE(" & nm.Name & "),0)") = 4 Then nm.Delete
Next
End Sub

こんな感じで。

お礼

こういうやりかたもあるんですか。ありがとうございました。