Excel: Delete every custom cell style

StyleKill.bas

Private Sub StyleKill()
    Dim styT As Style
    Dim intRet As Integer
    For Each styT In ActiveWorkbook.Styles
        On Error Resume Next
        If Not styT.BuiltIn Then styT.Delete
        On Error GoTo 0
    Next styT
  
End Sub