Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Me.Cells.Interior.ColorIndex = xlColorIndexNone
Target.Resize(5).EntireRow.Interior.ColorIndex = 36

End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--

HTH

RP
(remove nothere from the email address if mailing direct)


"smandula" wrote in message
...
Is it possible to highlight recurrant items from a subject row to
five rows below? When activating any row. In Yellow both the subject
line and any one of the five comparable lines.In VBA.
For Instance

A B C D
1 11 12 13 14
2 1 2 3(y) 4 <---- subject line active
3 9 10 3(y) 33 -|
4 22 23 24 25 | comparables
5 6 7 4(y) 11 -|


With Thanks