just a quick one, I am trying to count stuff within a month, This If
statement counts if it is an April date:

If r1.Value "1/4/2007" And r1.Value < "31/04/2007" Then
counter = counter + 1
Address2 = r1.Offset(1, 0).Address(ReferenceStyle:=xlR1C1)
End If

This works fine, but:

If r1.Value "1/5/2007" And r1.Value < "31/05/2007" Then
counter = counter + 1
Address2 = r1.Offset(1, 0).Address(ReferenceStyle:=xlR1C1)
End If

Lets through all sort of dates... including june and what not...

Am i going blind? or just plainly stupid? What am idoing wrong?

Thank you all!

Janos