Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iState As Integer
Dim bSaved As Boolean
If Application.CutCopyMode = False Then 'If a copy is active, do not update cell otherwise copy is cancelled...
bSaved = ThisWorkbook.Saved
iState = Application.Calculation
Application.Calculation = xlCalculationAutomatic
ActiveCell.Calculate ' Enable to highlight the active row with conditional formatting
Application.Calculation = iState
ThisWorkbook.Saved = bSaved
End If
End Sub