Highlight row of selected cell

[2Took]

Hi,

Need below code modified so that:

1. It does not permanently strip existing colors of cells. Currently, after another cell is selected, it leaves colorless previous row. I'd like to keep the colors of the worksheet, as they were before row was highlighted by this code.
2. Limit the highlight width to only Columns A thru K, not the entire row.

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'color selection row
    Static xRow
    
        If xRow <> "" Then
            With Rows(xRow).Interior
                .ColorIndex = xlNone
            End With
        End If
    
    Active_Row = Selection.Row
    xRow = Active_Row
    With Rows(Active_Row).Interior
        .ColorIndex = 8
        .Pattern = xlSolid
    End With

End Sub

 

[HaHoBe]

Hi,

see if the description at Automaticly Highlight Active Row in Excel is a way to work with.

Ciao,
Holger

 

[Peter_SSs]

You could try what is described here but in step 1 just select columns A:K and omit step 3.
This method also preserves the 'Undo' function which many options destroy.