Looping until it reaches a cell containing a certain text.

I need to select a range of cells until it reaches a cell with a certain text.

The selection starts from the moment it finds the word "Reds" and ends when it finds the text "Yellows".

Here's what I've come up with so far:

Workbooks.Open Filename:=strML
Sheets("Margin Leakage").Select
Cells.Find("Reds", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).Select

Do
Selection.End(xlDown).Select
Loop Until ActiveCell = "Yellows"

Try this code:

Please Login or Register  to view this content.