first column in row

[Martin]

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

 

[Gary''s Student]

Try:

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

 

[Martin]

Thanks, worked perfectly.

M

Try:

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