Thanks, worked perfectly.

M

"Gary''s Student" wrote:

Try:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Cells(Target.Row, 1).Interior.ColorIndex = 1
End Sub

--
Gary''s Student - gsnu200822


"Martin" wrote:

Hello,

I want to colour the first column in the active row to black, to highlight
to the user which row is being edited (just to assist in end user comfort!).
I have the follwoing code which doesnt work, can anyone help?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range(Cells(ActiveCell.Row, 1)).Interior.colourindex = 1
End Sub

Thanks in advance. Sorry it's basic, I just cant think how to do this.

M