Here is a simple way to count colored cells
without VBA or Excel 4 functions:
Edit Find Format select color or point to sample cell
Select your range
Find All
The Find/Replace window will show the number of
cells colored as specified,
in the lower left corner of the window.