Hi all,

I am trying to change in a help file an autoshape based on the value of
a cell.
If the cell say H19 is positive then I need a triangle suggesting a
descent, if is negative
I need a triangle which is suggesting a rise.

I try to use the following code to see how it works:

Sub Worksheet_Change(ByVal Target As Range)

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

The only problem is that my triangle (AutoShape 48) once disappear will
not came back when the condition changes.

I have very limited experience in programming and I would appreciate
any help.

emil