Cell Styles Gone Wild! - How do I delete them?

[sjl]

Good morning Board,

Alluva sudden I have about 400 cell styles in Excel 2007. I have a heavily formatted workbook, but I never created any named cell styles. A couple of weeks ago, numbers suddenly showed up as Accounting/Euros. I somehow changed the default back to Normal/General (thank you, Board for the direction on fixing that).

This morning the Euro default showed up again. I looked for the Normal cell style and saw hundreds of styles I never saw before. They are definitely names coming from my company - I recognize some of the terms. And, I can't even find the Normal and default Excel styles.

Also, I did try this trick and no dice http://www.rondebruin.nl/sheettemplate.htm Creating a brand new workbook shows the standard Excel 2007 style defaults, including the General number for Normal style. Creating new worksheets in the affected workbooks shows the wrong styles.

1. Is there a better way to delete them en masse besides Cell styles --> right click --> Delete for every stinking one?

2. Where did my Normal cell style go? It's not in the list at all to select and change from Euro to General.


Thanks in advance for your help -
SJL

 

[Callamity]

if you are trying to delete all the styles which are not the default ones you can use the builtin property instead of listing all the styles

Sub RTGF()
Dim S As Excel.Style
For Each S In Application.ActiveWorkbook.Styles
    If Not S.BuiltIn Then S.Delete
Next S
End Sub

I used a very similar code I found online. It has a YES/NO option if you wish to not blindly delete 100% of the custom styles. This is not MY code, so I cannot troubleshoot it, but it worked well for me. If you take the option above with no YES/NO be aware that if you have a massive amount of custom STYLES your PC may look like it has locked up for a while as the script runs....be patient.

Sub StyleKill()
    Dim styT As Style
    Dim intRet As Integer
    For Each styT In ActiveWorkbook.Styles
        If Not styT.BuiltIn Then
            intRet = MsgBox("Delete style '" & styT.Name & "'?", vbYesNo)
            If intRet = vbYes Then styT.Delete
        End If
    Next styT
End Sub