It will never get there

Dim i As Integer, c As Integer, d As Integer, e As Integer
d = 0
c = 0
e = 0

For i = 27 To 321



If Cells(i, 6).Value < Now Then

If Cells(i, 7).Value = "" Then
c = c + 1
Else
d = d + 1
End If

ElseIf Cells(i, 7).Value < "" Then
e = e + 1
End If
Next i


"egibberate" wrote in message
...
Hi,
the third 'If' statement is supposed to count all of the dates in
the 7th column & not the blank cells. Any idea why it won't work (returns
a result of '0') Like I said before, novice!
Cheers.

Dim i As Integer, c As Integer, d As Integer, e As Integer
d = 0
c = 0
e = 0

For i = 27 To 321



If Cells(i, 6).Value < Now Then
d = d + 1


If Cells(i, 6).Value < Now And Cells(i, 7).Value = "" Then
c = c + 1

If Cells(i, 7).Value < "" Then
e = e + 1

End If
End If
End If

Next i