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" wrote in message
...
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