Hello,

The following code finds the value of the cell then colors the cell. I would
like the code to find all of the cells in a range ($A$65000:$A$65125) and
color each of them. Can someone tell me or show what to add or change to
accomplish this?

Sub find_and_color()
Dim rCell As Range
Dim whatwant As String
whatwant = Sheets("300-+").Range("$A$65000").Value
For Each rCell In Sheets("MultAdjDaily").Range("$C$6:$C$3001")
If rCell.Value Like whatwant Then
rCell.Interior.ColorIndex = 33
End If
Next rCell
End Sub

Thanks!
--
Cue