Multiple Style in Excel 2003

  • Thread starter Thread starter Nimesh
  • Start date Start date
N

Nimesh

I have received file from other user, it has more than 1500 styles. Many a
times I am not able to apply my style in the file and shows error of Too many
style.
I tried to remove one by one but it take too long time and I have many such
files.
Is there any way for multiple selection of styles and than can delete it.
 
Dim mpStyle As Style

For Each mpStyle In ActiveWorkbook.Styles

If Not mpStyle.BuiltIn Then

mpStyle.Delete
End If
Next mpStyle
 
My Excel add-in "Formats & Styles" will list or delete unused
number formats and styles in the active workbook.
(not tested on xl2007)
It may do what you want. It is free upon email request.
I ask that you use your real name and provide your geographic location.
Remove xxx from my email address: (e-mail address removed)
--
Jim Cone
Portland, Oregon USA



"Nimesh" <[email protected]>
wrote in message
I have received file from other user, it has more than 1500 styles.
Many a times I am not able to apply my style in the file and shows
error of Too many style.
I tried to remove one by one but it take too long time and I have
many such files.
Is there any way for multiple selection of styles and than can delete it.
 
THIS WORKED GREAT! Thanks!

Dim mpStyle As Style

For Each mpStyle In ActiveWorkbook.Styles

If Not mpStyle.BuiltIn Then

mpStyle.Delete
End If
Next mpStyle


--
__________________________________
HTH

Bob
Click to expand...
 
Back
Top