Remove unused styles from workbook

I have been trying to write code that cycles through a workbook and removes any unused styles. The workbooks I test the code on are very large (sometimes the .usedrange of all the sheets is 200000 cells) so the code takes an awful long time to run, hours in some cases!

I have thought that it may be faster to use an array to store the style list but wasnt sure how to do that. Basically any ideas that will speed this macro up would be useful.

I know there are 3rd party addins that will do this but you have to pay about £50!

Thanks

Here is the code

Please Login or Register  to view this content.

Hi Gossy,

I used some of your code and added a few of my own to do the removal in stages. It suits me as I can stop between removal and check. I realise this post is old so there maybe other that superseeded this. I will post if anyone interested.

Cheers,
Ferry