No VBA or color number required:
Edit Find Find what: clear it if filled
Options Format.. Choose Format from Cell
Click any red cell Find All
The number of cells will appear in the lower left
corner of the Find window.