Images From Dropdown Menu

[kasen401]

I am attempting to use a drop down menu to select from a list of file locations and display an image. The code below works perfectly except I don't know how to change where the image is inserted.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> "$A$1" Then Exit Sub
   On Error Resume Next
   Me.Shapes("MyNewShape").Delete
   With Me.Pictures.Insert(Target.Value)
       .Name = "MyNewShape"
       .Left = Target.Offset(, 1).Left
   End With
End Sub

This allows me to use a drop down menu on Sheet1 to pick from a list of file names on Sheet3. So far so good. The code above drops the image into Sheet1. What I'd like to to do is specify a location on Sheet2 to insert the image.

Any help would be greatly appreciated!

 

[VoG]

That code looks like it should work. In what way does it not work?

 

[kasen401]

Sorry if I wasn't clear on the issue. The code definitely works. Although not in the exact way I need. The code in its current form displays the image in relation to the location of the drop down menu's cell. What I'd like to do is specify a location on a different sheet for the image to display but I don't know how to alter the coding above to accomplish this.