M
Martin
Hello,
I have soem code that doesnt quite work properly and was hoping for some
guidance.
I want to colour the first column of the selected row black, so it
highlights to the user which row they are in. Then when the user moves to
another row the first column of the previous cell reverst back to no colour.
Here is the code so far:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lRow As Long
For lRow = 34 To 100
If lRow = ActiveCell.Row Then
Cells(Target.Row, 1).Interior.ColorIndex = 1
Else
Cells(Target.Row, 1).Interior.ColorIndex = xlNone
End If
Next
End Sub
I think the problem is with the line:
If lRow = ActiveCell.Row Then
Can anyone help me?
Thanks in advance.
Martin
I have soem code that doesnt quite work properly and was hoping for some
guidance.
I want to colour the first column of the selected row black, so it
highlights to the user which row they are in. Then when the user moves to
another row the first column of the previous cell reverst back to no colour.
Here is the code so far:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lRow As Long
For lRow = 34 To 100
If lRow = ActiveCell.Row Then
Cells(Target.Row, 1).Interior.ColorIndex = 1
Else
Cells(Target.Row, 1).Interior.ColorIndex = xlNone
End If
Next
End Sub
I think the problem is with the line:
If lRow = ActiveCell.Row Then
Can anyone help me?
Thanks in advance.
Martin