Check each row of excel sheet for values using VBA

Hi All

I have the working code for checking each row for values and then popping up with a message box if the value is found. The problem is that the code runs from the bottom up and I need the code to run from the top down.

The code, which works perfectly, but just not from the top down is

Sub Button1_Click()

Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
Cells(i, 1).Select

If Cells(i, 2) = "1" Then MsgBox "Yahoo"

If Cells(i, 3) = "1" Then MsgBox "Yahoo again"

Next i
End Sub

Thanks

Thanks Sixthsense

This works. Now I wonder if you are able to help me with the next step. Instead of the msgbox "yahoo" and "yahoo again" popping up when a value is found I would like an image to be displayed, briefly appear and then disappear until the next "1" is found.

Thanks again for your help Thusfar.