Sumowanie kolorowych komórek

Witam,

Zaczynam przygodę z VBA i mam pewien problem. Próbuję napisać funkcję która poda mi sumę cyfr znajdujących się np tylko w żółtych komórkach.

Kod który napisałem podaje cyfrę ostatniej żółtej komórki. Gdzie leży błąd ? Dzięki z góry za pomoc.

Wynik = wynik + cell.value

Super, działa. dzięki za pomoc :)