Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
With Target.EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.Color Index = 6
End With

End Sub

--
Don Guillett
SalesAid Software

"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
Just as long as OP is aware that this will wipe out any currently colored
cell
formatting on the sheet.


Gord Dibben MS Excel MVP

On Wed, 23 May 2007 09:40:01 -0700, Gary''s Student
wrote:

Put the following in the Worksheet coding area:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 6
End Sub

as you navagate with either mouse click or arrow key, the selected row
will
be hight-lighted.