批量删除代码
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