My apologies Ryan I forgot to include the test for the offset cell in the If
statement. Try this instead.

Sub Call_If()

Dim ws1 As Worksheet
Dim rng As Range
Dim cel As Range

Set ws1 = Sheets("Sheet1")

With ws1
Set rng = .Range("E3:E300")
End With

For Each cel In rng
If IsNumeric(cel.Value) And _
cel.Value 0 And _
cel.Offset(310, -4) < 1 Then

Call Asub
cel.Offset(310, -4) = 1
End If
Next cel

End Sub

--
Regards,

OssieMac