Sub DoItLikeSumIf()
Dim dblAnswer As Double
dblAnswer = Application.WorksheetFunction.SumIf(Range("B5:B10" ), _
"=Mush", Range("D5:D10"))
MsgBox dblAnswer
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"magix"
wrote in message
Can anyone translate the excel function SUMIF into Visual Basic Function
format ?