Restoring default Styles in Excel

[mancubus]

back-up your file before testing:

Sub vbax_61949_restore_default_styles()
     
     Dim styl As Style
     
     On Error Resume Next
     For Each styl In ActiveWorkbook.Styles
         If Not styl.BuiltIn Then styl.Delete
     Next styl
 
 End Sub