Hi a2424,
Try this event macro* on Sheet1:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$3" Then
If Target.Value = "New" Then
ActiveSheet.Shapes("Rectangle 1").Visible = True
Else
ActiveSheet.Shapes("Rectangle 1").Visible = False
End If
End If
End Sub
HTH
Robert
* To install this macro follow these four steps:
1. Copy my code to the clipboard (Ctrl + C)
2. Right-click on Sheet1 and from the short-cut menu select View Code
3. Paste (Ctrl + V) the contents of the clipboard from step 1
4. From the File menu select Close and Return to Microsoft Excel
Bookmarks