I wrote the below code that gives me a moving highlighted row through a range.
The below code works when is copied to the "ThisWorkbook" Object and the
file is saved an reopened.
It works for me.
Private WithEvents App As Application
Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As
Range)
With Range("A1:S100").Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Ar = ActiveCell.Row
With Range(Cells(Ar, "a"), Cells(Ar, "s")).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
End Sub
Private Sub Workbook_Open()
Set App = Application
End Sub