Highlight Current Row in Excel (VBA)

[Rick Rothstein]

Faster one :

Public strAddress As String
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If strAddress <> "" Then
       Union(Me.Range(strAddress).EntireColumn, Me.Range(strAddress).EntireRow).Interior.Color = xlColorIndexNone
    End If
       Union(Target.EntireColumn, Target.EntireRow).Interior.Color = 65535
       strAddress = Target.Address
End Sub

By the way, had your approach been measurably faster, then I might have written it this way instead...

Public PreviousTarget As Range


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not PreviousTarget Is Nothing Then PreviousTarget.Interior.ColorIndex = xlColorIndexNone
  Set PreviousTarget = Union(Target.EntireRow, Target.EntireColumn)
  PreviousTarget.Interior.ColorIndex = 6
End Sub