SUMPRODUCT unless row a certain colour

IE:

Function Filled(MyCell As Range)
If MyCell.Interior.ColorIndex > 0 Then
Result = 1
Else
Result = 0
End If
Filled = Result