Private Sub CommandButton1_Click()
'selects picture file inserts to sheet1 A range
'then copies inserted picture to sheet2 E range
'loops x5 in this eg.
Dim myPicture As String, X As Integer
For X = 1 To 21 Step 5 'change to suit
myPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", , _
"Select Picture to Import")
If myPicture <> "" Then
Sheets("sheet1").Range("A" & X).Select
ActiveSheet.Pictures.Insert (myPicture)
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Select
With Selection
.Copy
Sheet2.Activate
Sheets("sheet2").Range("E" & X).Select
ActiveSheet.Paste
End With
End If
Sheet1.Activate
Next X
Application.CutCopyMode = False
End Sub