Highlight the active row and column in an Excel worksheet

https://globalexcelsummit.com/post/highlight-the-active-row-and-column-in-an-excel-worksheet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = False Then
Application.Calculate
End If
End Sub