cell format info in formulas

I wrote a small routine to count the number of cell in a range (calendar_ronald)  that match the color of a cell (cell_color).   Sub CountCellsByColor() Dim calendar_ronald As Range Dim cell_colo...