Set Myrange = Sheet2.Range("a10:a100")
for each cell in Sheet1.Range("B10:B100")
Sheet1.cells(cell.row,"F").Value = _
Application.WorksheetFunction.SumIf(Myrange, _
cell.Value, Sheet2.Range("C10:C100"))
Next

--
Regards,
Tom Ogilvy



"Costas" wrote in message
...
I have two sheets in the first sheet in the column A
contains accounts name and in the column B figures.
The second sheet contain the same thinks but is updated
from the first sheet. The sumIf Function in VB as I
mentioned below is working just for one cell. My question
is if it is possible to apply the same function to the
rest cell but of course the result will be different and
spread to the remainder cells.

-----Original Message-----
A few more details would help. Surely you don't want
every cell to have
this result?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Costas" wrote in
message
...
I use a worksheet function in VB and specificly the sum
if. This is working properly but only for one cell what
is the easy way to do for a lot of cells.

Set Myrange = Sheet2.Range("a10:a100")
Sheet1.Range("f10") = _
Application.WorksheetFunction.SumIf((Myrange) _
, Sheet1.Range("b10"), Sheet2.Range("C10:C100"))


.