Hi Dave, :-)
Now I only have Excel Japanese version, so my code doesn't work on English version.
As for me, I tend to hate sendkeys solution because it sometimes doesn't work as intended. I don't know about the loop code that you wrote...Is it something like this?
I have no idea why it crashed. Give me more details. Thanks.


Sub DeleteStyles()
    Dim wkbStyles As Styles
    Dim s As Style
    Set wkbStyles = ActiveWorkbook.Styles
    For Each s In wkbStyles
    If s.Name <> "Normal" Then s.Delete
    Next
End Sub