how to keep initial cell color, while code is hilighting active row

Question

I have this code for workbook:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
\'toggles worksheet colors
\'code will remove         


        

Answer 1

Here's an alternate approach which makes use of the fact that Excel always "overlays" Conditional Formatting on top of whatever formatting is already on the sheet.

Define a worksheet-level name "ROWNUM" and assign a value of 0.

Add a conditional format using the formula =(ROW()=ROWNUM) and add whatever formatting you want to use for row highlighting.

Your SelectionChange sub is then just:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     Me.Names("ROWNUM").RefersToR1C1 = "=" & Target.Cells(1).Row
End Sub