Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$ES$4" And Target.Value >= 0.1 Then
        Application.EnableEvents = False
        ActiveSheet.Shapes("LHPHard1_1").Fill.ForeColor.RG B = RGB(192, 0, 0)
    ElseIf Target.Value >= 0.07 Then
        ActiveSheet.Shapes("LHPHard1_1").Fill.ForeColor.RG B = RGB(218, 150, 148)
    ElseIf Target.Value <= 0.04 Then
        ActiveSheet.Shapes("LHPHard1_1").Fill.ForeColor.RG B = RGB(0, 0, 255)
    Else
        ActiveSheet.Shapes("LHPHard1_1").Fill.ForeColor.RG B = RGB(166, 166, 166)
    End If
End If
    If Target.Address = "$ES$5" And Target.Value >= 0.1 Then
        Application.EnableEvents = False
        ActiveSheet.Shapes("LHPHard2_1").Fill.ForeColor.RG B = RGB(192, 0, 0)
    ElseIf Target.Value >= 0.07 Then
        ActiveSheet.Shapes("LHPHard2_1").Fill.ForeColor.RG B = RGB(218, 150, 148)
    ElseIf Target.Value <= 0.04 Then
        ActiveSheet.Shapes("LHPHard2_1").Fill.ForeColor.RG B = RGB(0, 0, 255)
    Else
        ActiveSheet.Shapes("LHPHard1_1").Fill.ForeColor.RG B = RGB(166, 166, 166)
    End If
End If
Application.EnableEvents = True
End Sub