SelectionChange

[russkris]

Hello,

I have found the below VBA code and it works a charm.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    ' Clear the color of all the cells
    Cells.Interior.ColorIndex = 0
    With Target
        ' Highlight the entire row and column that contain the active cell
        .EntireRow.Interior.ColorIndex = 8
        .EntireColumn.Interior.ColorIndex = 8
    End With
    Application.ScreenUpdating = True
End Sub

However, I have column headings that are shaded, and the above removes all shading from the worksheet. Which part do I need to modify to allow the top few rows to have their own colours? Rows 1:10 have heading(filled with colour) and picklists