Excel VBA: Copy and paste shapes at same position
<p>I want to copy all shapes from one worksheet and paste them on another worksheet at the same position. The shapes can be rectangular callouts or pictures. </p>

<p>So far, I know how to loop through all shapes in my old worksheet: </p>

<p><code>Dim s As Shape
For each s in Activesheet.Shapes
...
Next</code></p>

<p>How do I copy and paste the shapes at the same position in another worksheet, say Sheets("new")?</p>