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)...