I want to add a group of cells, using a sumif of another group of.

I want to add a group of cells, using a sumif of another group of cells.
Such as if A1,B1, D1 is equal to 3.5 add A2 to the sum of cells

Dim dblSum as Double
dblSum = application.Round(application.Sum(range("A1:B1,D1")),1)
if abs(dblSum-3.5) < .00000001 then
dblSum = dblSum + Range("A2")
End if

--
Regards,
Tom Ogilvy

"larrylab" <larrylab@discussions.microsoft.com> wrote in message
news:42FFCDB5-E7B6-4B71-9105-8D5676B819A9@microsoft.com...
> I want to add a group of cells, using a sumif of another group of cells.
> Such as if A1,B1, D1 is equal to 3.5 add A2 to the sum of cells