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