Hi, I've named range C1:X1 as RANGE
What i need is excel to seach the range for values equals to test and then shade the cell from the active cell to the cell 10 rows below. Currently my code is like this :
Sub ChangeColor()
Dim rCell As Range
With Sheet1
For Each rCell In .Range("RANGE").Cells
If rCell.Value = "Test" Then
rCell.Interior.ColorIndex = 15
rCell.Select
Selection.AutoFill Destination:=Range("???"), Type:=xlFillFormats
End If
Next rCell
End With
End Sub
Anyone know what should I replace with the Range? Thanks in advance. I'm using excel 2003 by the way.
Bookmarks