[COLOR="DarkSlateGray"][B]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim oCel As Range
Application.ScreenUpdating = False
With Range("A4:L59")
.Interior.ColorIndex = xlNone
If Not Intersect(Target, .Cells) Is Nothing Then
For Each oCel In Intersect(Target, .Cells)
If Not IsEmpty(oCel) And oCel.Value >= 0 Then oCel.Interior.Color = 65535
Next
End If
End With
Application.ScreenUpdating = True
End Sub[/B][/COLOR]