font renine göre sayma

Merhabalar, makro kod ile fonksiyon oluşturarak yazı font rengine göre saydırmak istiyorum. hücre dolgu rengini ve boş olan hücrelerin sayılmaması gerekiyor. sadece yazı olan, rakam, metin vs. değişe bilir sadece yazı rengine göre sayarak kaç adet beyaz/kırmızı (renk değişebilir) varsa onu...