Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, r As Range
Set Rng = Range("A10:F100")
If Intersect(Target, Rng) Is Nothing Then Exit Sub
For Each r In Target
Application.EnableEvents = False
r.Interior.ColorIndex = 4
Application.EnableEvents = True
Next
End Sub