how to search, select, change color of cells

[bruinscup11]

I have a spreadsheet of almost 90,000 rows, I need to get the data down to 11,000. I want to be able to (using VBA) search the data in column F (Range F15:F89905), select the cells whose values are equal to those in column I (Range I10:I11244), then change the fill color of the selected cell to a different color like color index 36.
(I will later filter the data in column F and make sure the values are equal before deleting the excess data points)
I am really new at VBA, and have no idea how to go about coding this. Could anyone help me figure out how to do this?

 

[bruinscup11]

also I forgot to say: I am using excel 2007

 

[John Davis]

also I forgot to say: I am using excel 2007

Although I'm using 2003, and there are probably better ways but, maybe this will work.

Sub bruinscup11()

Dim x As Long
Dim r As Variant

For x = 11244 To 10 Step -1

r = Range("I" & x).Value

With Range("G15:G89905")

    .AutoFilter Field:=1, Criteria1:=r
    .SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 36
    .AutoFilter
    
End With
    
Next x

End Sub

 

[bruinscup11]

Thank you!
I'll give it a try

 

[John Davis]

Thank you!
I'll give it a try

You're welcome. Thanks for the feedback. I hope it works out for you.