怎样删除工作薄中的无效名称

anewman

一个工作薄中包括了 1312 个自定义的名称(名称包括中文、英文、日文、全角字符、半角字符等)，
想利用 VBA代码批量删除。
   VBA代码在运行中报错，报错信息为：
               运行时错误‘1004’:
               输入的名称无效。
   请教：怎样用VBA批量删除这些自定义名称？（Excel 2003 中文版本）
   
   详细文件和代码，请看附件。

   谢谢。

[ 本帖最后由 anewman 于 2010-7-16 13:59 编辑 ]

amarantine

点名称管理，筛选有错名称，全部删除

flydove

Sub DelNames()

Dim TN As Name
On Error Resume Next
  For Each TN In ActiveWorkbook.Names
  TN.Delete
  Next
End Sub

Zamyi

名称的错误名称在VBA中是不能引用的，如A1，它和单元格冲突，所以无法用VBA删除。产生这样原因可以是用其它语言版本的OFFICE造成的，如日本版的CELLS（1，1）不是A1，所以它可以命名名称A1。估计这些只能在它们原来的版本中才能用VBA删除，或者运行下面后剩下的手式删除
Dim n As Name
  On Error Resume Next
  For Each n In ThisWorkbook.Names
  n.Visible = True
  n.Delete
  Next

gowowo

Dim n As Name
  On Error Resume Next
  For Each n In ThisWorkbook.Names
  n.Visible = True
  n.Name="ABCD"  
  n.Delete
  Next

anewman

依据各位的提示，结合 VBA 代码删除 + 手工删除，很快清除了 1311个名称。
  只有 1个名称还删除不了，由它去。

   谢谢各位！

[ 本帖最后由 anewman 于 2010-7-16 16:43 编辑 ]