Thanks for your help

"Don Guillett" wrote:

One way
Sub dosumif()
criteria = 1
lr = Cells(Rows.Count, "n").End(xlUp).Row
Set cr = Range("n1:n" & lr)
Set sr = Range("o1:o" & lr)
MsgBox Application.SumIf(cr, criteria, sr)
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"orquidea" wrote in message
...
Hi:

I want to set a macro which will work with the sumif formula below. The
range (B1:B3 and A1:A3) will be relative every time and would vary the
number
of rows subject to be considered. I think I will have to select the
range
first with Selection.End(xlDown).Select. But I can not figure out how to
code it.

=SUMIF(B1:B3,20,A1:A3)

Thanks in advance for any help.

Orquidea