Looping backward - from last row. Bit confused.

[pedie]

If the value [date] is <= x then msgbox "yes" & my statement...

Where 'm i doing it wrong...?

Thanks.

I know there are cells matching critiria however it does not msgbox ....

[FONT=Courier New]Option Explicit[/FONT]
[FONT=Courier New]Sub try3()[/FONT]
[FONT=Courier New]Dim x As String[/FONT]
[FONT=Courier New]Dim lr as long, myC As Long 'myC As Range[/FONT]
[FONT=Courier New]x = Date - 90[/FONT]
[FONT=Courier New]lr = Sheet2.Range("A" & Rows.Count).End(xlUp).Row[/FONT]
 
[FONT=Courier New]For myC = lr To 1 - 1[/FONT]
[FONT=Courier New] If Cells(myC, "D").Value <= x Then[/FONT]
[FONT=Courier New] MsgBox "Yes"[/FONT]
[FONT=Courier New] End If[/FONT]
[FONT=Courier New]Next myC[/FONT]
[FONT=Courier New]End Sub[/FONT]

hey i think it should be...
For myC = lr To 1 Step -1

 

[mirabeau]

hey i think it should be...
For myC = lr To 1 Step -1

Yes! That's the obvious modification to try first.