Something like:

Option Explicit
Sub testme()
Dim FWks As Worksheet
Dim TWks As Worksheet
Dim myPict As Picture

Set FWks = Worksheets("sheet1")
Set TWks = Worksheets("sheet2")

For Each myPict In FWks.Pictures
myPict.Copy
TWks.Range(myPict.TopLeftCell.Address(0, 0)).PasteSpecial _
Paste:=xlPasteAll
Next myPict

End Sub

Alvin Hansen wrote:
>
> Hi
>
> Is there a way to make a macro there copy all photo from one sheet to
> another sheet if i don't know how many photos there are
>
> Regards alvin

--

Dave Peterson