Excel - Highlight the active row

April 2018

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
Published by jak58. Latest update on October 25, 2013 at 06:37 AM by deri58.
This document, titled "Excel - Highlight the active row," is available under the Creative Commons license. Any copy, reuse, or modification of the content should be sufficiently credited to CCM (https://ccm.net/).
VBA/VB6 - Using Excel from another application
Quickly create a simple holiday schedule