Run-Time error 424 - Object required

[Mr_Knows_Nothing]

Hallo guys.

I'v got a pretty newbie problem, but I have absolutly no idea about how to solve it...

I get the errer "Run-time error 424 - Object required".

I'm trying to type and execute this code:

Sub Delay_of_products()
    NumberDelayed = 0
    For i = 2 To 11
        If Sheet1.Cells(i, 2) < Sheet1.Cells(i, 3) Then
            Sheet1.Cells(i, 4) = "Delayed"
            NumberDelayed = NumberDelayed + 1
        ElseIf Sheet1.Cells(i, 2) > Sheet1.Cells(i, 3) + 10 Then
            Sheet1.Cells(i, 4) = "Very early"
        Else
            Sheet1.Cells(i, 4) = "On Time"
        End If
    Next
    MsgBox "There are " & NumberDelayed & " delayed products."
End Sub

It marks the line "If Sheet1.Cells(i, 2) < Sheet1.Cells(i, 3) Then" (On of the first).

I really hope that you can help me, so I can begin my trip into the VBA world, open minded and un-frustrated.. :-)

Thanks,