Need help on loop

[shekhar_pc]

I am finding a word "Start" using the following code

Cells.Find(What:="Start", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate

Once the word is found, it does some works then again it find the next word "Start" and some more work.

I want to keep this in loop till the time the LAST word "Start" is found.

How to keep this in loop?

 

[hsk]

if u want to see if find is successful or not then

Inplace of Cells.Find(........).Activate use
Set test = Cells.Find(........)

If test Is Nothing then
..... not found
Else
Found
End If

But test will be Nothing only if first find itself is unsucessful ......
If u want to check if second find is sucessful or not then i do not see any other way than checking the address .... if same address is returned that means second find is unsuccessful .....

e.g. if B6 = Start and B8 = Start

So firstfind will be $B$6 .....
Cells.FindNext(After:=ActiveCell).Activate
Will activate cell B8 .....

If u have Start in only B6
then for every Cells.FindNext(After:=ActiveCell).Activate the cell activated will be B6 ....
Hope this helps .....

 

[Scott Huish]

See reply in original post.

 

[shekhar_pc]

Thanks Hotpepper and hsk for your help