Hi Herbert

That's a very neat trick!
Thanks for sharing with us.

--
Regards

Roger Govier


"Herbert Seidenberg" wrote in message
oups.com...
Here is a quick way without VBA or formulas.
Edit Find clear "Find What" Options Format
Choose Format From Cell select sample cell
Find All scroll to end of list, press CTRL+SHIFT
and click on the last entry of the list.
Right click Status Bar and check Sum.