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

Play safe

If r1.Value > DateSerial(2007,5,1) And r1.Value < DaterSerial (2007,6,1)

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Janos" <(E-Mail Removed)> wrote in message
news:90891123-249D-4F3B-A121-(E-Mail Removed)...
> 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