Summenbildung via Makro

Private Sub CommandButton3_Click()
For i = 8 To 400
Set Summe = Application.Worksheetfunktion.Sum(Range(Cells(i, 9), Cells(i, 72)))
If Cells(i, 1)  "" And Cells(i, 1)  "Gesamt" And Cells(i, 8)  Summe Then
MsgBox "Gesamterlös des Projektes " & Cells(i, 4) & " entspricht nicht die Summe IST+FC:  _
siehe H" & i & "und I" & i & ":BT" & i
Cells(i, 8).Select
Exit Sub
End If
Next
End Sub

Was mache ich falsch?
Gruss
Salim