Highlighting the current row

Issue

Solution

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

Adding it to a general module (eg Module1)

• Or put a button on the macro
• Or put a shortcut

Public ActivationLigne as boolean 
Sub Activate() 
     ActivationLigne = not ActivationLigne 
end sub