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?:confused: ActiveWindow.ScrollRow = Target.Row 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

If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

Conditional format lost after one line of code...

Thread starter pujo
Start date Dec 4, 2022

pujo

Well-known Member

Dec 4, 2022

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

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