RE: Deleting all object styles and sheets with macroThanks

Thanks to Shelby for the code below.

Sub DeleteObjectStyles()
    Dim d As Document
    
    Set d = ActiveDocument
    
    Do Until d.StyleSheet.AllStyleSets.Count = 0
        d.StyleSheet.AllStyleSets(1).Delete
    Loop
    
    Do Until d.StyleSheet.AllStyles.Count = 0
        d.StyleSheet.AllStyles(1).Delete
    Loop
End Sub

However, the styles remain even after saving the doc and restarting Draw.  Any help on this??