I am using the below code to insert a picture from a file based on the value of a cell. I just need it to repeat this for every row. Also I need to make sure the picture stays if the sheet is sent somewhere else that does not have access to the I:\ on our network. Can someone help me please? I am very new to VBA, I have just been doing a lot of googling.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
Dim myPict As Picture
With Range("B2")
Set myPict = Range("B2").Parent.Pictures.Insert("I:\Presenter\Images\" & Target.Value & ".jpg")
myPict.Top = .Top
myPict.Width = .Width
myPict.Height = .Height
myPict.Left = .Left
myPict.Placement = xlMoveAndSize
End With
