Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:E10")) Is Nothing Then
cancel = True
ScrollArea = "A1:E10"
Range("A1:E10").Interior.ColorIndex = xlNone
If Target.Address = "$C$8:$E$8" Or Target.Address = "$C$9:$E$9" Then Target.Interior.ColorIndex = 6
End If
End Sub