Thanks so much for the macro Nick. Saved me so much time after failing for over 30 min pressing enter!

Thx


Sub DeleteStyles()
'
' DeleteStyles Macro
'
Dim styT As Style
Dim intRet As Integer

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

Modified this way and no need to press the Enter keys :)

Thanks Again for the code

The XLStyles tool worked great

TJ,

I have slightly different problem in that I have a spreadsheet which was beautifully formatted using only a few custom stlyes I had created. I then pasted in some data from another spreadsheet and a load of junk cell styles have been added as well.
Examples of these cell styles are:

ÅëÈ­ [0]_´ë¿ìÃâÇÏ¿äû

and

386grabber=VGA.3GR (this one is particularly weird as it is preceded and followed by a number of spaces and a line break)

I am unable to delete these using the Excel GUI... righ-click > delete doesn't make them disappear.

Running your message box code in order to try to selectively delete them produces the following error message:

Run-time error '1004':
Delete method of Style class failed

Even running this more vicious code (which deletes everything except the default 'Normal' style) won't get rid of them

Sub StyleKill()
'Removes all styles except for Normal

Dim st As Style
Dim x As Integer

x = 0
On Error Resume Next
For Each st In ActiveWorkbook.Styles
st.Locked = False
st.Delete
x = x + 1
Next

MsgBox ("Deleted " & x & " styles")
End Sub

Do you have any suggestions? I would ideally like to be able to select which styles to delete so that I can retain the custom styles I do want to use.

Option 3 solved my pbm

I am trying Option 2 and it is taking time like eons.

"Not Responding" - displayed with the excel file name.

Guys, I discovered a pretty fast and easy method to get rid of the obnoxious styles (too many formats !!).

Just select the whole worksheet (left hand top button in excel worksheet), and press the "Normal" tab on the Styles ribbon. Repeat this for each of the worksheets.

It worked for me. The macro at Option2 was taking lots of time and didn't work. The above suggestion was a "fluke" kind of thing.

Enjoy!!!

RE: Raghu

The methods in my original posting were to get rid of unused styles. Your suggestion might help solve the "too many styles error" but in doing so it will also remove all styles currently being used and which might cause the issue to reappear down the road, perhaps as you restyle your worksheet, since unused styles still exist. Option 3 tends to work the best for those having issues with Macros.

Option 2 worked nicely, thanks

I'm getting a runtime error, highlighting the code: styT.Delete