"find entire cells only" vba??

Hi there,,
I have a piece of code that is as follows:

On Error GoTo done
Do While 1 < 1000
Cells(1, 8).EntireColumn.Find("Page", LookIn:=xlWhole, lookat:=xlWhole, ).Select
Range(ActiveCell(), ActiveCell.Offset(7, 0)).Select
Selection.EntireRow.Delete
'a = 1 'this is just a bogus variable
Loop
done:

it works fine,, except it will not find "Page 1" for instance.. How do I make it find any cell that has page in it regardless of what else is in the cell.. Kind of like unchecking that box "find entire cells only".

Thanks a lot!

thank you!