删除EXCEL里所有的Names

有的Excel里定义了很多Name，可是在Insert->Name->Define里却看不到，也就无法删除。不知道是自己对Excel还不太了解还是Excel本身的问题，总之，现在找到一个办法用VBA把所有的Name删掉。

1、按Alt+F11进入VBA编辑器

2、点击Insert->Module

3、输入下面的代码：

Sub ClearNames()

Dim wb As Workbook
Dim n As Name

For Each n In ThisWorkbook.Names
n.Delete
Next n

Set n = Nothing

End Sub

4、保存并关闭退出，回到Excel。

5、按Alt+F8，选择ClearNames，点击运行