Summenprodukt

Function xxx()
Dim a, b, d As Variant
x = Range("a1")
y = Range("b1")
a = Range("a4:a14")
b = Range("b4:b14")
d = Range("d4:d14")
xxx = Application.SumProduct((a = x) * (b = y) * d)
End Function

Warum funktioniert dieses Code nicht bzw. was mache ich hier falsch ?

Vielen Dank im Voraus !!!