Excel vba 批量删除名称

在Excel中，我们可以选中一个区域或者单元格给它一个名称。在公式-名称管理器 中能看到。

如果我们创建了很多名称，逐个删除就会相对费时。是否可以一键快速删除全部名称呢

通过下面代码，遍历工作表的名称，逐个删除

Sub DelNames()
    Dim NName As Name
    For Each NName In ThisWorkbook.Names
        NName.Delete
    Next NName
End Sub

完成删除结果。