Excessive Cell Styles (macro not working)

[wtsabo]

I'm trying to remove excessive cell styles with a workbook but every macro I've tried times-out. Does anyone have a macro to remove and reset cell styles to default quickly?

 

[Michael M]

Maybe this from @Superuser removing ALL excess styles

Sub MM1()
    Dim N As Long, i As Long
    With ActiveWorkbook
        N = .Styles.Count
        For i = N To 1 Step -1
            If Not .Styles(i).BuiltIn Then .Styles(i).Delete
        Next i
    End With
End Sub