Removing Corrupt styles in an excel workbook

[anonymouse]

Hello,

How can I remove corrupt styles from an Excel 2000 workbook ?

I've tried deleteing through the menus - but that doesn't work, and I've
tried through VBA, but that fails with an error for the styles that are
corrupt. (Delete method of style class failed)
e.g.

for i=1 to activeworkbook.styles.count:debug.print
activeworkbook.styles.item(i).name:activeworkbook.styles.item(i).delete:next
i

Inspecting the names of the styles that are failing to delete displays a
couple of non-printable characters show as squares, or Yen symbols.

Any idea how to obliterate these styles ?

[Dave Peterson]

I've never used styles enough to corrupt them.

But OpenOffice has the reputation of fixing lots of things that Excel can't.

You may want to try that if you don't get a better response:

http://www.openoffice.org, a 60-65 meg download or a CD

If you do try it, please post back with your results--good or bad. Then Google
will have it for the next person.

anonymouse wrote:
>
> Hello,
>
> How can I remove corrupt styles from an Excel 2000 workbook ?
>
> I've tried deleteing through the menus - but that doesn't work, and I've
> tried through VBA, but that fails with an error for the styles that are
> corrupt. (Delete method of style class failed)
> e.g.
>
> for i=1 to activeworkbook.styles.count:debug.print
> activeworkbook.styles.item(i).name:activeworkbook.styles.item(i).delete:next
> i
>
> Inspecting the names of the styles that are failing to delete displays a
> couple of non-printable characters show as squares, or Yen symbols.
>
> Any idea how to obliterate these styles ?

--

Dave Peterson