Move shapes with loop from one sheet to another

[chriscorpion786]

Hi All,

The below code does not work, when I use it from the VB editor and use F8 it works, but if I click on run or use it from the sheet, it dosen't and throws up an error: "method paste of object' Worksheet failed.
Any clue whats happening.

Sub moveshapes()


Dim shp As Shape

For Each shp In Sheet1.Shapes

shp.Copy
Sheet2.Paste Cells(4, 5)

Next shp

End Sub

 

[NdNoviceHlp]

Maybe...

Sheet2.Paste Destination:=ThisWorkbook.Sheets("sheet2").Cells(4, 5)

HTH. Dave

 

[Phuoc]

Sheet2.Paste Sheet2.Cells(4, 5)

 

[chriscorpion786]

Yes, thank you both...it works, I also tried using application.screenupdating = false and then turning it back on before the code Sheet2.Paste Cells(4, 5).
I think it has to do with something moving from vb background to sheet back and forth....just a guess.