If iPos < 0 Then 'return_type' is 1
if i < 3 then
Cells(Target.Row + i, iPos).Interior.ColorIndex = 35
Cell.Interior.ColorIndex = 35
else
Cells(Target.Row + i, iPos).Interior.ColorIndex = 5
Cell.Interior.ColorIndex = 5
End if
End If

--
Regards,
Tom Ogilvy


"smandula" wrote in message
...
Hello,
This VBA hilites 5 rows, I need the last two rows to be a different color,
an color
As of now all rows are a light green

Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cell As Range
Dim i As Long
Dim iPos As Long

Me.Cells.Interior.ColorIndex = xlColorIndexNone
For Each Cell In Target.EntireRow.Cells
For i = 1 To 4
iPos = 0
On Error Resume Next
iPos = Application.Match(Cell.Value, Rows(Target.Row + i),
0)
On Error GoTo 0
If iPos < 0 Then 'return_type' is 1
Cells(Target.Row + i, iPos).Interior.ColorIndex = 35
Cell.Interior.ColorIndex = 35
End If
Next i
If Range("A1").Value = 0 Then Exit Sub
Next Cell

End Sub