Delete all custom styles

Delete all custom styles from active workbook.
Author: michael@excelexperts.co.uk

Sub StyleKill()

    Dim styT As Style
    Dim intRet As Integer

    Call TurnOff

    For Each styT In ActiveWorkbook.Styles
        If Not styT.BuiltIn Then
            styT.Delete
        End If
    Next styT

    Call TurnOn

End Sub