Excel, too many Styles after importing a wkst from another file 2

[rlee16]

After consolidating various worksheets from different sources, I received a "Cannot add any more custom formats" dialog box. Looking at the styles (Format;Style), I see that there are literally hundreds of superfluous styles that I would like to delete. Is there a macro/VBA code out there that can automate the deletions?

 

[combo]

This macro will delete all styles except Normal:

[tt]Sub DeleteUserStyles()
On Error Resume Next
With ThisWorkbook
For i = .Styles.Count To 1 Step -1
.Styles(i).Delete
Next i
End With
End Sub[/tt]

If you need to confirm deletion, extend the loop above this way:

[tt] For i = .Styles.Count To 1 Step -1
If MsgBox("Delete " & .Styles(i).Name & "?", vbYesNo, "Confirm action&quot = vbYes Then
.Styles(i).Delete
End If
Next i[/tt]

Style Normal can't be removed.

 

[rlee16]

Combo,

Thanks for the code! I really appreciate it.

rlee16