Try

Range("B27").Value =
Evaluate("=SUMPRODUCT((ACTIVE!A1:A24=--""2005-01-01"")*" & _
"(ACTIVE!C1:C24=614546)*ACTIVE!D1:D24)")

--

HTH

RP
(remove nothere from the email address if mailing direct)


"ram" wrote in message
...
When I use the code below I receive the #value! error message. Can someone
explain what i'm doing wrong?

Range("b27") = Evaluate("=sumproduct((active!A1:A24
=01/01/2005)*(ACTIVE!C1:C24=614546)*ACTIVE!D1:D24))")


Thanks for your time and help