【VBA】显示所有隐藏的名称管理器中的名称

Excel提示这个

 代码：

Sub DisplayNames()

        Dim Na As Name

        For Each Na In ThisWorkbook.Names

            Na.Visible = True

        Next

    End Sub

使用VBA删除名称的方法：

 ActiveWorkbook.Names("Auto_Activate").Delete