title: Copying multiple images from one workbook to another as separate images
body: <p>In 2003 the code worked perfectly, we just updated to 2010 and its affecting our outgoing proposals.  </p>
  
  <p>I've been looking on multiple sites and everything i have tried gives me all the pictures pasted into one grouped image OR gives me multiple boxes that say image cannot be viewed.  </p>
  
  <p>The pictures will always be located in column L, but it can be one picture or 50 and even none.  So i need to be able to select all images, copy and open another workbook and paste in a designated column with the same format and as separate images, not as a single image which is what I am getting right now.  Any help would be greatly appreciated.  Below is the latest code I have tried, still getting a "single grouped image" when pasting.</p>
  
  <pre><code>Windows(ourName2).Activate
  Sheets("Sheet5").Select
  On Error Resume Next
  ActiveSheet.Pictures.Copy
  Windows("Proposal.xls").Activate
  Sheets("Sheet2").Select
  ActiveSheet.PasteSpecial Range("L7")
  </code></pre>
  
  <p>Update, attempting to use this code raises error on the line <code>Set wbSource = Workbooks("ourName2")</code></p>
  
  <pre><code>Dim wbSource As Workbook 
  Dim wbDest As Workbook 
  Dim shSource As Worksheet 
  Dim shDest As Worksheet 
  Dim shp As Shape 
  
  Set wbSource = Workbooks("ourName2") 'modify as needed   
  Set wbDest = Workbooks("MPlanner.xls") 'modify as needed 
  Set shSource = wbSource.Sheets("Sheet5") 'modify as needed 
  Set shDest = wbDest.Sheets("MAudit") 'modify as needed 
  
  shSource.Pictures.Copy shDest.Range("L7").Paste
  </code></pre>