Hello All,

I have 7 pictures on one worksheet that I want to copy and paste on to another worksheet, into various cells. Each image will go into only one cell. The code I have is as follows:

Sub Picture()
'
' Picture Macro
'

'
Sheets("info").Shapes("Picture 5").Select
Selection.Copy
Sheets("bat").Select
With Worksheets("bat")
.Paste Destination:=.Range("B131")
End With

Sheets("info").Shapes("Picture 2").Select
Selection.Copy
Sheets("bat").Select
With Worksheets("bat")
.Paste Destination:=.Range("A202")
End With

Sheets("info").Shapes("Picture 3").Select
Selection.Copy
Sheets("bat").Select
With Worksheets("bat")
.Paste Destination:=.Range("d202")
End With

Sheets("info").Shapes("Picture 4").Select
Selection.Copy
Sheets("bat").Select
With Worksheets("bat")
.Paste Destination:=.Range("A209")
End With

Sheets("info").Shapes("Picture 5").Select
Selection.Copy
Sheets("bat").Select
With Worksheets("bat")
.Paste Destination:=.Range("D209")
End With

Sheets("info").Shapes("Picture 6").Select
Selection.Copy
Sheets("bat").Select
With Worksheets("bat")
.Paste Destination:=.Range("A216")
End With

Sheets("info").Shapes("Picture 7").Select
Selection.Copy
Sheets("bat").Select
With Worksheets("bat")
.Paste Destination:=.Range("D216")

End With

End Sub

The issue I am running into is that it is pasting Picture 1 into all 7 destinations, instead of the specified picture it should be selecting...I could be overlooking something here completely, but I can't seem to figure this out

Thoughts/Help?

Thanks