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