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.