Does anyone have any suggestions on how to edit the following code to insert
more than 1 image?
If A1 = 1, then display image from ("C:\TempPic.JPG"), else
If A1 = 2, then display image from ("C:\TempPic2.JPG") else
display nothing.
Does anyone have any suggestions on how to do it for Excel 2003?
Thanks in advance for any suggestions
Eric

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myPic As Object
If Target.Address = "$A$1" Then
If Range("A1") = 1 Then
Set myPic = ActiveSheet.Pictures.Insert("C:\TempPic.JPG")
Else
Set myPic = ActiveSheet.Pictures(1)
myPic.Delete
End If
End If
End Sub