删除Excel中无用的样式

Excel有时出错，造成有很多的无用样式，甚至造成全部样式的丢失，这时，需要先清除这些错误的样式再进行修改。删除样式的代码如下：

Sub DelStyle()
Dim mystyle As Style
Dim n1 As Long
Dim n2 As Long
On Error Resume Next
For Each mystyle In ActiveWorkbook.Styles
n1 = n1 + 1
If mystyle.BuiltIn = False Then
mystyle.Delete
n2 = n2 + 1
End If
Next
MsgBox "本文档中共计有" & n1 & "种样式，其中" & n2 & "种样式未使用，已清除。使用本程序出现问题，请不要保存后退出，注意备份！"
End Sub