BufYes.Value = WSDSD.Evaluate("=SUMPRODUCT((" & _
tarrng.Address & "=" & ProVa & ")*(" & _
tarrng.Address & "<0))")

--
Regards,
Tom Ogilvy


"Shawn" wrote in message
...
Below is an excert of code:

Dim rng As Range
Dim rng2 As Range
Dim tarrng As Range

Set rng = ActiveCell
Set rng2 = ActiveCell.End(xlDown)
Set tarrng = Range(rng, rng2)

tarrng.Select


BufYes.Value = WSDSD.Evaluate("=SUMPRODUCT((tarrng=" & ProVa &
")*(tarrng<0)")


BufYes is returning a #value error. Variations of this code works. I
know
the current problem rests in the tarrng variable but I am not sure why.
???
--
Thanks
Shawn