Excel:エクセルで「名前」と書式の「スタイル」を一括削除する方法 -

エクセルで「名前」と書式の「スタイル」を一括削除する方法 -
■スタイルの一括削除マクロ
Sub delstyle()
Dim s
On Error Resume Next
For Each s In ActiveWorkbook.Styles
If Not s.BuiltIn Then
s.Delete
End If
Next
End Sub