Hi,

Does anyone knows how to create a conditionnal formatting on an auto shape? I tried the following code but Excel returns execution error '424': Object required. 

Sub Worksheet_calculate()
If (Range("K189").Value < (-1 * (Range("J8").Value))) Or (Range("K189").Value > Range("J8").Value) Or 
(Range("K191").Value < (-1 * (Range("J9").Value))) Or (Range("K191").Value > Range("J9").Value) Then
        Load_Calc.Shapes("Rectangle_21").Fill.ForeColor.SchemeColor = 3  ' Red
        Load_Calc.Shapes("Rectangle_22").Fill.ForeColor.SchemeColor = 3  ' Red
    Else
        Load_Calc.Shapes("Rectangle_21").Fill.ForeColor.SchemeColor = 4  'Green
        Load_Calc.Shapes("Rectangle_22").Fill.ForeColor.SchemeColor = 4  'Green
    End If
End Sub

Thanks a lot

Skell