Excelでセルが空白の時にカウントしない方法

初めまして。 私はExcelの初心者で、Excel2010を使っています。 名簿の整理をするにあたって 黒字は男性、赤字は女性にし、それぞれの人数を 色で識別しカウントするやり方をVBAで行いました。 Function COUNTCOLOR(data As Range, color As Integer) Application.Volatile Count = 0 For Each C In data If C.Font.ColorIndex = color Then Count = Count + 1 End If Next C COUNTCOLOR = Count End Function 上記のもの(他サイトから引用)を入力し、上手く作動したのですが 名簿の名前をDelし再計算後、カウント数が減りません。 手作業で一つ一つセル内の文字色を 白にするとカウント数が減ります。 しかし条件付きの書式でセルが""の時に文字色が白になる式を 設定してもカウント数は減りませんでした。 どのようにしたら空白の時にカウントさせないよう出来ますか。 よろしくお願いします。