Everything Haywire with Shapes fomatting problem???

[WernerLouw]

I have the following piece of code: Goto Code

Whenever We meet our targets the shapes need to indicate this by showing a red green or yellow shape...

Everything worked fine until i added all the shapes, now everything is haywire... shapes changes when i change cells not linked to those cells?

Any Ideas?


Private Sub Worksheet_Calculate()

Select Case [h5]
Case 1: Shapes("Green Tons Rec").ZOrder msoBringToFront
Case 3: Shapes("Yellow Tons Rec").ZOrder msoBringToFront
Case 2: Shapes("Red Tons Rec").ZOrder msoBringToFront
End Select

Select Case [h6]
Case 4: Shapes("Green Pt Rec").ZOrder msoBringToFront
Case 5: Shapes("Yellow Pt Rec").ZOrder msoBringToFront
Case 6: Shapes("Red Pt Rec").ZOrder msoBringToFront
End Select

Select Case [h7]
Case 7: Shapes("Green HG").ZOrder msoBringToFront
Case 8: Shapes("Yellow HG").ZOrder msoBringToFront
Case 9: Shapes("Red HG").ZOrder msoBringToFront
End Select

Select Case [h12]
Case 1: Shapes("Green Conc Tons").ZOrder msoBringToFront
Case 3: Shapes("Yellow Conc Tons").ZOrder msoBringToFront
Case 2: Shapes("Red Conc Tons").ZOrder msoBringToFront
End Select

Select Case [h13]
Case 1: Shapes("Green Conc Pt").ZOrder msoBringToFront
Case 3: Shapes("Yellow Conc Pt").ZOrder msoBringToFront
Case 2: Shapes("Red Conc Pt").ZOrder msoBringToFront
End Select

Select Case [h16]
Case 1: Shapes("Green Met KG").ZOrder msoBringToFront
Case 3: Shapes("Yellow Met KG").ZOrder msoBringToFront
Case 2: Shapes("Red Met KG").ZOrder msoBringToFront
End Select

Select Case [h17]
Case 1: Shapes("Green Met Pt").ZOrder msoBringToFront
Case 3: Shapes("Yellow Met Pt").ZOrder msoBringToFront
Case 2: Shapes("Red Met Pt").ZOrder msoBringToFront
End Select

Select Case [h20]
Case 1: Shapes("Green Tails Tons").ZOrder msoBringToFront
Case 3: Shapes("Yellow Tails Tons").ZOrder msoBringToFront
Case 2: Shapes("Red Tails Tons").ZOrder msoBringToFront
End Select

Select Case [h21]
Case 1: Shapes("Green TG").ZOrder msoBringToFront
Case 3: Shapes("Yellow TG").ZOrder msoBringToFront
Case 2: Shapes("Red TG").ZOrder msoBringToFront
End Select

Select Case [h22]
Case 1: Shapes("Green T Pt").ZOrder msoBringToFront
Case 3: Shapes("Yellow T Pt").ZOrder msoBringToFront
Case 2: Shapes("Red T Pt").ZOrder msoBringToFront
End Select

Select Case [h24]
Case 1: Shapes("Green Rec").ZOrder msoBringToFront
Case 3: Shapes("Yellow Rec").ZOrder msoBringToFront
Case 2: Shapes("Red Rec").ZOrder msoBringToFront
End Select

End Sub

 

[WernerLouw]

Never Mind...