VBA problem: if date is less than other date then do!

[totalnatal]

Hi,

I have the following lines of code:

 If r < Range("a3").Offset(i, 17).Value Then
            Range(Range("a3").Offset(s, 4), Range("a3").Offset(s, 9)).Value = 0

where r = Range("a3").Offset(i, 0).Value

Both r and Range("a3").Offset(i, 17).Value correspond ot cells which have a date in it. The date in r is calculated by vba whereas the one in the offset is calculated via formula.

As you can see, I'm trying to do something like: If r is less than the offset cell value (i.e 15/06/2007 < 24.04.2007) then do a set of commands.

for some reason everytime I run the macro, it does not to the comparison properly as the set of commands still gets executed even if R is not less than the offset cell value.

Can you help me ?

Thank you

 

[stilesbn]

What is r defined as? Are you defining it as a date, an integer, other?

 

[totalnatal]

At first it was defined as Long. Then just tried by defining r as Date and it is still not working. The offset cell's format is Date aswell.

I dunno what to do....