UpDate A Url Image Object

[diannosd]

Dim URL As String
URL = Worksheets("Sheet1").Range("B4").Value
Range("C5").Select
ActiveSheet.Pictures.Insert(URL).Select

Morning, I found the above code on this forum and it works great but I wonder if it can be modifed. I have a spreadhsheet which asks for a Product code, when entered another cell changes (using a vlookup) be the URL image of the product. Using the above code, it displays the URL image which is great. However, when the product code is changes again, it just inserts another picture rather than update the existing one. How can I have an object set to the URL reference so that it can updated everytime the product code is changed.