I want to loop through a range of cells to see if the words 'Grand Total'
exist. If it does, one message box comes up, if not, another box.

Here is the code I am using:

Sub FindLine()

'Pick the starting point
Range("I11").Select

'Loop until cell is Grand Total
Do Until ActiveCell = "Grand Total"

'If Grand Total is found, use this msgbox, exit do.
MsgBox "Please delete extra rows", vbOKOnly, "Extra Rows Found"
Exit Do

'If the active cell is not Grand Total, move the next row, loop
ActiveCell.Offset(1, 0).Select

'If Grand Total is not found, use this msgbox
MsgBox "Please Extend Range"
Loop

End Sub

The code stops at the first cell and exits. What is the proper way to move
the next row. In Access I would use .movenext.

Thanks!
PJ