sub testsumif
Range("B1").Formula = "=SUMIF(A1:A" & _
Cells(Rows.Count, 1).End(xlUp).Row & ","" < ""&99^99)"
end sub
"Danny" wrote:

Hi,

I got this great formula from this NG.

=SUMIF(A1:A10,"<"&99^99)

I request for a macro to make the range A1:A10 variable
so it can sum the range where the active cell is.


Thank you.