Dim cell As Range
Dim iRow As Long
Dim iCnt As Long
For Each cell In Range("a3:a250")
If InStr(cell, "Trex") Then
Do
iRow = iRow + 1
If IsEmpty(cell.Offset(iRow, 0)) Then
iCnt = iCnt + 1
Else
iCnt = 0
End If
Loop Until InStr(cell.Offset(iRow, 0).Value, "Trex") _
Or iCnt = 5 Or cell.Row + iRow = 250
cell.Resize(iRow + 1).EntireRow.Select
Exit For
End If
Next


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"JV" wrote in message
...
Dim cell As Range
For Each cell In Range("a3:a250")
If InStr(cell, "Trex") Then
cell.Offset(0, 0).EntireRow.Select
End If
Next
Above works but now I want to make it highlight in addition to the row
highlighted all rows afterwards until the next time it finds "Trex" or 5
consecutive empty cells.