Sorry sorry sorry to Tom and You
It's because my name on the pictures was
picture 1 picture 2 ans so on
It's working with
picture1 picture2 ans so on

Thanks

Alvin


"Alvin Hansen" skrev:

Hi
I try to use the script you help me with to copy pictures from one sheet to
another
this one:
Sub testme()
Dim FWks As Worksheet
Dim TWks As Worksheet
Dim myPict As Picture

Set FWks = Worksheets("billeder")
Set TWks = Worksheets("print")

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

End Sub
But get an error by excel there write
"excel canoot paste the data"

CAn you or someone else help me?

regards

Alvin