Laufzeitfehler?

Sub fra()
Dim frazwei, fradrei, fravier, frasechs As Integer
frazwei = 0
fradrei = 0
fravier = 0
frasechs = 0
endup = Range("A2000").End(xlUp).Row
For i = 1 To endup
If Worksheets("ICM_Liste").Range(Cells(i, 1)).Value = "FRA" Then
If Worksheets("ICM_Liste").Range(Cells(i, 11)).Value = "29" Then
frazwei = frazwei + 1
End If
Worksheets("FRA, DE, ROW").Range("C3").Value = frazwei
End If
Next i
End Sub