change autoshape by condition from a cell value

Hi Emil,

Hope you figure out what the problem is.

Meanwhile, just for FUN...

The following code lets you achieve the up/down arrow effect with the
ONE AutoShape...

Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$H$19" And Target >= 0 Then
ActiveSheet.Shapes("AutoShape 48").Rotation = 0
Else
ActiveSheet.Shapes("AutoShape 48").Rotation = 180
End If
End Sub

Hope this helps.

Ken Johnson