this should do what you want. Right click sheet tabview codecopy\paste
this. However, it will delete ALL other shading.

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


--
Don Guillett
SalesAid Software

"Red" wrote in message
...
I am resending my previous question, I did not phrase it correctly.
Sorry.

I would like to be able to have the row I am entering information into
automatically be highlited. As I move up and down that row would
highlilte. I
am working with a lot of names in the column and a lot of data in the rows
that I need to match up to the names.

Thanks again