"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
    'a = 1 'this is just a bogus variable

    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!

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!