Highlight Active Row

[Shay A]

Hi,
How can this code be changed so that only the row of the active cell will be selected?

Thank you,

>> Use Code -tags <<
​

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LocalSelect As String
With Target
If .Count = 1 Then LocalSelect = .Address & "," & .row & ":" & .row & "," & _ Left(.Address, InStr(2, .Address, "$") - 1) & _ ":" & Left(.Address, InStr(2, .Address, "$") - 1)
End If
End With
On Error Resume Next
Range(LocalSelect).Select
End Sub

 

[vletm]

Shay A
Could below work with Your case?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ay = Target.Row
    Application.EnableEvents = False
    Rows(ay & ":" & ay).Select
    Application.EnableEvents = True
End Sub