There is no need to use ActiveCell in the Worksheet_SelectionChange event macro. This is what Target is / does.
Modify your Worksheet_SelectionChange to be closer to the next.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Name = "mySelection"
Cells.Interior.Pattern = xlNone
Target.EntireRow.Interior.ColorIndex = 19
End Sub
Now you will constantly redefine the named range for each new selection of cells.
, CF, , , . CF , , , CF, , : .
=AND(A1<>"", ROW(A1)<>ROW(mySelection))
AND mySelection , CF.
