Hi! Hope anyone can help me with this..here's my code:

SearchFor = "Total Flow"
If SearchFor = "" Then
Exit Sub
End If
For i = 1 To LastRow
If UCase(Left(Cells(i, "A"), Len(SearchFor))) = UCase(SearchFor) Then
MsgBox SearchFor & " was found in " & Cells(i, "D").Address(0, 0), _
vbOKOnly, "Match Found"
End If
Next
What I want is to add together all the values in column D (integers)
that have the text "total flow" (in column A) on the same row, and then place this sum in a specified cell.
So basically, i want to add the cell content of the cell ranges appearing in the msgboxes.
Is there a way to do this??

thanks