hi,

ActiveCell.Formula = "=SUMPRODUCT(--(Requests!H1:H65535<=DATE(2012,4,31))*(Requests!D1 :D65535=""Marcus Comins""))"

or

Dim dt As Long, rng1 As Range, rng2 As Range
dt = DateSerial(2012, 4, 30)
Set rng1 = Range("H1:H65535")
Set rng2 = Range("D1:D65535")
ActiveCell = Evaluate("SUMPRODUCT((Requests!" & rng1.Address & "<=" & dt & ")*(Requests!" & rng2.Address & "=""Marcus Comins""))")


--
isabelle



Le 2012-04-16 05:18, Aramazd a écrit :
Works, Thanks a lot!!

The challenge now would be actually implementing this code in VBA :D