Excel VBA : Delete Style (불필요한 스타일 삭제)

Sub Style_Delete()
Dim n As Integer, yn As Byte
On Error Resume Next
For n = ActiveWorkbook.Styles.Count To 1 Step -1
If ActiveWorkbook.Styles(n).Name = "Normal" Then
Else
ActiveWorkbook.Styles(n).Delete
End If
Next
End Sub