I have a macro set up on worksheet change that copies an image from a folder to column H based on the image name pasted into column A. When pasting a range of cells, only the first value pasted gets an image. I have to double click into the other cells to have the image populate. Any ideas on how I can get all images to populate when the names are pasted? See macro code below.



Private Sub Worksheet_Change(ByVal Target As Range)


Dim cell As Range
Set cell = Range("A:A")


On Error Resume Next
If Not Intersect(Target, Columns("A:A")) Is Nothing Then

For Each cell In Target
Application.EnableEvents = False
With Cells(Target.Row, "A")
Set oPic = Application.ActiveSheet.Shapes.AddPicture("\\folder\images" & Cells(Target.Row, Target.Column) & ".jpg", False, True, 1, 1, 100, 100)
oPic.Width = .Width
oPic.Height = .Height

oPic.Top = Cells(Target.Row, "H").Top
oPic.Left = Cells(Target.Row, "H").Left
oPic.Placement = xlMoveAndSize

End With

Next cell
Application.EnableEvents = True
End If

End Sub