Modify this to suit by changing the Addresses ($A$1, $B$1, $C$1) and the
names of the callouts (AutoShape 1, AutoShape 2, AutoShape 3)...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value = "" Then
Shapes("AutoShape 1").Visible = msoTrue
Else
Shapes("AutoShape 1").Visible = msoFalse
End If
ElseIf Target.Address = "$B$1" Then
If Target.Value = "" Then
Shapes("AutoShape 2").Visible = msoTrue
Else
Shapes("AutoShape 2").Visible = msoFalse
End If
ElseIf Target.Address = "$C$1" Then
If Target.Value = "" Then
Shapes("AutoShape 3").Visible = msoTrue
Else
Shapes("AutoShape 3").Visible = msoFalse
End If
End If

End Sub
--
HTH...

Jim Thomlinson


"edwardpestian" wrote:


Works great, but I actually have 3 callouts that I need disappear. Each
callout is linked to different. Can you modify the code for this?

Thanks again.

EP


--
edwardpestian
------------------------------------------------------------------------
edwardpestian's Profile: http://www.excelforum.com/member.php...o&userid=33809
View this thread: http://www.excelforum.com/showthread...hreadid=549561