![]() |
| If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|||||||
|
|
Thread Tools | Display Modes |
|
#1
|
|||
|
|||
|
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. |
| Ads |
|
#2
|
|||
|
|||
|
Dim mpStyle As Style
For Each mpStyle In ActiveWorkbook.Styles If Not mpStyle.BuiltIn Then mpStyle.Delete End If Next mpStyle -- __________________________________ HTH Bob "Nimesh" > 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. |
|
#3
|
|||
|
|||
|
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: XX -- Jim Cone Portland, Oregon USA "Nimesh" > 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. |
|
#4
|
|||
|
|||
|
THIS WORKED GREAT! Thanks!
On Thursday, July 9, 2009 11:24:59 AM UTC-3, Bob Phillips wrote: > Dim mpStyle As Style > > For Each mpStyle In ActiveWorkbook.Styles > > If Not mpStyle.BuiltIn Then > > mpStyle.Delete > End If > Next mpStyle > > > -- > __________________________________ > HTH > > Bob > > "Nimesh" > 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. |
| Thread Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Using Format-->Style only on certain cells (Excel 2003) | It Is Me Here | Excel Discussion (Misc queries) | 2 | December 22nd 07 05:39 PM |
| Excel 2003 List does not preserve border style for all rows | Geetha | Excel Discussion (Misc queries) | 0 | August 16th 06 07:22 PM |
| Can you access the old-style Help Index using Excel 2003? | Dismayed | New Users to Excel | 1 | August 9th 06 07:31 PM |
| How can i test a cell for bold style in a cell (Excel 2003)? | Mike A. | Excel Worksheet Functions | 2 | March 6th 06 07:23 PM |
| How do I get Excel 4.0 style markers in Excel 2003? | mdmiller55 | Charts and Charting in Excel | 1 | July 25th 05 08:34 AM |