Have a look at the following:

http://www.cpearson.com/excel/RowLiner.htm

Not exactly what you want but very useful.

" wrote:

Hi All,

I have trawled the newsgroups for code to highlight the active row.
Below is the code that l am currently using which works fine until you
want to carry out copy / paste on the active worksheet.

Does anybody have the code that colours the active row AND allows copy
/ paste on the active worksheet?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Static OldRange As Range
Target.EntireRow.Interior.ColorIndex = 36

If Not OldRange Is Nothing Then
OldRange.EntireRow.Interior.ColorIndex = xlNone
End If

Set OldRange = Target

End Sub

All suggestions gratefully received.

Regards

Michael Beckinsale