You could try this alternate method which doesn't use VBA.

In 2003 you can specify the Format color to look for under
EditFindOptionsFormatFormat.

Select the color from the Patterns dialog and Find All.

In the found dialog box the first cell will be highlighted. Hold SHIFT key and
scroll down to bottom of dialog box and select last cell.

The selected cells can then be counted by right-click on Status Bar and "Count".

Do for each color.


Gord Dibben MS Excel MVP

On Wed, 17 Oct 2007 03:12:01 -0700, David
wrote:

Is there a function to count the cells in a range, which have a given
interior color?