Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D3:N21")) Is Nothing Then
L = Target.Row
Region = Cells(L, 3).Value
If Cells(L, 15) > 0 Then
ActiveSheet.Shapes(Region).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Else
ActiveSheet.Shapes(Region).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 65
End If
End If
End Sub