Inserting a picture into comment macro

Hi there,

I have a spreadsheet with 500 values, each with a seperate image. My objective is to have each of these images inserted as comments to their respective values, as having each one physically take up a cell would make the sheet too large to view.

Inserting these individually would take hours upon hours, so with help I've gotten this far:

Sub Insert_Comment_Picture()
Dim PicNo As Double

For PicNo = 1 To 2
Range("A" & PicNo).AddComment ("")
Range("A" & PicNo).Comment.Shape.Fill.UserPicture "C:\My Pictures\" & PicNo & ".jpg"
Next PicNo

End Sub

The problem with this is that it doesn't actually look at any values in cells, it only inserts the pictures in order.

Basically, I want the macro to look at the values in column E and insert the pics with the same name located in C:\My Pictures\ in column G.

Help please!