VBA删除当前工作簿中的无效名称

通过Excel自定义名称Name的RefersTo属性，可以快速的通过VBA清除无效的自定义名称，具体代码如下：

Sub DeleteBadRefs()
    Dim nm As Name
    For Each nm In ActiveWorkbook.Names
        If InStr(1, nm.RefersTo, "#REF!") > 0 Then
            'List the name before deleting
            Debug.Print nm.Name & ": deleted"
            nm.Delete
        End If
    Next nm
End Sub

无任何技术含量，把代码复制到VBA编辑器中运行即可。