Hello,

Is there a way to select multiple rows given a certain
criteria is met? I have the following code which only
selects one row at a time, but I would like the code to
select all the rows for which the cell in the Range is
equal to "Cat".

Dim R As Range, Cel As Range
Set R = Range("A8:A27")
Set Cel = Range("A8:A27")
For Each Cel In R
If Cel.Value = "Cat" Then _
Cel.EntireRow.Select
Next Cel

Thank you in advance.