Highlight Current Row in Excel (VBA)

[luna]

i found this code, it doesnt change the original highlighted color

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Rows(Target.Row).Select ' highlite entire row
Target.Activate ' select the cell

End Sub

[Rick Rothstein]

i found this code, it doesnt change the original highlighted color

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Rows(Target.Row).Select ' highlite entire row
Target.Activate ' select the cell

End Sub

You can simplify that first line of code like this...

Target.EntireRow.Select

[Transformer]

i found this code, it doesnt change the original highlighted color

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Rows(Target.Row).Select ' highlite entire row
Target.Activate ' select the cell

End Sub

And following can be used to highlight row and column both

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Application.EnableEvents = False
    Range(Target.EntireRow.Address & "," & Target.EntireColumn.Address).Select 'OR Union(Target.EntireRow, Target.EntireColumn).Select
    Target.Activate
    Application.EnableEvents = True
    
End Sub

[dypang87]

Although this is excellent, is there a code that will do the same, but, if selecting multiple cells (2 or more) with my mouse, the code becomes void?

i found this code, it doesnt change the original highlighted color

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Rows(Target.Row).Select ' highlite entire row
Target.Activate ' select the cell

End Sub

[Transformer]

You can check cells count.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    If Target.Cells.Count >= 2 Then Exit Sub
    Application.EnableEvents = False
    Range(Target.EntireRow.Address & "," & Target.EntireColumn.Address).Select 'OR Union(Target.EntireRow, Target.EntireColumn).Select
    Target.Activate
    Application.EnableEvents = True
    
End Sub

Although this is excellent, is there a code that will do the same, but, if selecting multiple cells (2 or more) with my mouse, the code becomes void?