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

I am not completely convinced that your code really is any faster than what I posted. I threw a couple of Debug.Print Timer statements in each of our routines and selected around... both seemed to report 0 or 1 clock ticks worth of time (mostly 0) pretty much with the same frequency. I believe Excel must have some sort of optimized code underneath for processing all the cells on the sheet in a single reference... probably restricting itself, in the case of Interior Colors or ColorIndexess, to only cells with color in them.