how to use range and calculate offset

[Danny54]

I have the following code :
Sub checkit()
Dim c As Range
Dim z1 As Integer
Dim LastRow As Integer

With Worksheets(1).Range("A1:O100")
z1 = 0
LastRow = UsedRange.Rows.Count

For Each c In Range(.Cells(2, 9), .Cells(LastRow, 11))
If c.Interior.Color = RGB(255, 255, 0) Then
If ActiveCell.Offset(0, 7).Value = "Yes" Then
z1 = z1 + 1
End If
End If
Next c
End With
MsgBox z1
End Sub

so, if yellow found in any of the columns I thru K and "Yes" is found in column P add 1 to a counter and do same look in the next row thru the lastRow.

the above example would show 2 when done.

my problem is how to get this to work.
If ActiveCell.Offset(0, 7).Value = "Yes" Then


Thanks

 

[Fluff]

How about

If Range("P"&c.row).Value = "Yes" Then

 

[Danny54]

wow,
thanks so much. It worked perfectly. Sometimes you get to close to the problem and can't see the resolution.

Have a Great Weekend!

 

[Fluff]

You're welcome & thanks for the feedback