Batch remove all custom cell styles using VBA

Morning everyone,

I have a spreadsheet that I inherited from someone else which has at least 100 custom cell styles set. I want to be able to delete them all and tried to write a macro to do so

Please Login or Register  to view this content.

While this got rid of some of the cell styles it does not remove them all. If i try and manually delete the ones that are there new ones just appear

Is there something else I can add to the code?

I have attached a blank copy of the workbook which shows the cell styles.

Thanks,

Alice

The code above only removes styles that are NOT built-in. So basically it removes all the custom styles in a workbook. I don't think you can delete built-in styles

The IDE highlights

If cellst.BuiltIn = False
Then

As an error and won't execute. Excel 2010.