title: copy & paste a picture from one sheet to another
body: <p>I created a small program using the following code to transfer a picture from one sheet to another in the same workbook.</p>
  
  <pre><code>Sub transferPicturesPAPER_EXAM(pictureNo As Long, p As Integer, srcSht As String, dstSht As String, insertWhere As String)
  '   Transfers the selected Picture to the exam sheet.
  ''zxx
  
      If pictureNo = 0 Then Exit Sub
      Sheets(srcSht).Select
      ActiveSheet.Unprotect
      ActiveSheet.pictures("Picture " &amp; pictureNo).Select
      'ActiveSheet.Shapes.Range(Array("Picture " &amp; pictureNo)).Select
      Selection.Copy
  
      Sheets(dstSht).Select
      Range(insertWhere).Select
      ActiveSheet.Paste
  
      '== rename to correspond to the problem number
      Selection.Name = "Picture " &amp; p
  End Sub
  </code></pre>
  
  <p>This works fine. However, when I place the routine in a larger workbook, I get the following error at the line: <code>Activesheet.paste</code>:</p>
  
  <blockquote>
    <p>Paste method of Worksheet class failed </p>
  </blockquote>
  
  <p>The code worked fine for several program executions.</p>
  
  <p>Any help would be greatly appreciated.</p>