Hello group!
I have a simple conditional format that highlights the selected row.
I run the routine and it works but I lose the conditional formatting.
Can anyone explain what is going on?
ActiveWindow.ScrollRow = Target.Row
The sheet will scroll up the the desired
I have a simple conditional format that highlights the selected row.
I run the routine and it works but I lose the conditional formatting.
Can anyone explain what is going on?

ActiveWindow.ScrollRow = Target.Row
VBA Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Range("G7:AA8647")) Is Nothing Then
Range("A1").value = Target.Row
End If
ActiveWindow.ScrollRow = Target.Row
End Sub
The sheet will scroll up the the desired