Excel 批量删除自定义名称

批量删除代码

Sub 批量删除自定义名称()
qh_star_t = Timer

'获取一共有多少条自定义名称
For Each n In ActiveWorkbook.Names
    n1 = n1 + 1
Next

qh_jin_zong = n1 '进度条总数  进度条调用多少次就*多少次
qh_BD0 = 0
qh_hear = "房多多_删除自定义名称_阙辉*程序运行_进度*程序运行_详情"

'批量删除自定义名称
For Each n In ActiveWorkbook.Names

     '1.进度条第一次  开始读入
    qh_msg = ""
    qh_BD0 = qh_BD0 + 1
    qh_msg = qh_msg & Now & " " & "QH_正在删除第：" & qh_BD0 & "条" & vbCrLf
    '进度条 阙辉
    qh_BB = quehui_JinDuTiao_01(qh_jin_zong, _
                                qh_BD0, _
                                Timer - qh_star_t, _
                                qh_msg, _
                                qh_hear, _
                                qh_BB)
    
    '删除自定义名称
    n.Delete
Next

End Sub