Excel - Highlight the active row

December 2016

This little function highlights the row where the cursor is currently located.

Add in a module sheet:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As Long
'If the function activation / deactivation is implemented add the line below

if ActivationLine then exit sub

If Target.Count > 1 Then Exit Sub
If AncAdress <> 0 Then ' restore to normal
Rows(AncAdress).Interior.ColorIndex = xlNone
Rows(AncAdress).Font.ColorIndex = 0
End If
Target.EntireRow.Font.ColorIndex = 6
Target.EntireRow.Interior.ColorIndex = 3
Target.EntireRow.Interior.Pattern = xlSolid
AncAdress = Target.Row
End Sub

Add to a general module (e.g Module1)

If you want to activate/deactivate the function:
  • Or put a button on the macro
  • Or put a shortcut

The current row will be highlighted by default, click on the button or shortcut to change its status:
Public ActivationLigne as boolean 
Sub Activate()
ActivationLigne = not ActivationLigne
end sub

Related :

This document entitled « Excel - Highlight the active row » from CCM (ccm.net) is made available under the Creative Commons license. You can copy, modify copies of this page, under the conditions stipulated by the license, as this note appears clearly.