Maybe you'd like to check out these 2 previous posts by Leo Heuser, where he
provides 2 VBA subs to deal with it.

Sub DeleteUnusedStyles()
http://tinyurl.com/mmrd

Sub DeleteUnusedCustomNumberFormat*s()
[version 1.01]
http://tinyurl.com/37vz7

--
Rgds
Max
xl 97
---
GMT+8, 1° 22' N 103° 45' E
xdemechanik <atyahoo<dotcom
----
"jimhallen" wrote in message
...
Dana,

I tried Microsoft's "Cleaner" but it didn't help. I have the same
problem,
my spreadsheet has
grown over time and I'm bumping up against the 4000 cell format limit.
Have
you found
any ways around it?

Jim Allen