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

[Guest]

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

 

[Tom Ogilvy]

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