Copy/Paste Pic Code Not Working

[katk]

Hello,

I have a workbook with one main sheet that has a bunch of formulas. I have a code that updates the information on that sheet, formats everything, and then copies and pastes the values and formats onto a new sheet which it creates.

One of the things I'm trying to copy and paste is a logo. It didn't transfer over when I told the code to copy/paste the entire sheet, so I tried adding an extra bit of code to deal specifically with the picture. Since writing the code kept giving me an error, I just recorded the macro of copy/pasting the picture -- only that's been giving me an error too. This is the recorded code:

Sub Piccy()
    ActiveSheet.Shapes.Range(Array("Picture 1")).Select
    Sheets("Sheet3").Select
    Range("D1").Select
    ActiveSheet.PasteSpecial Format:="Picture", Link:=False, DisplayAsIcon:= _ 
False
End Sub

At first it was giving me an error saying it couldn't find the object in question, then an error saying it couldn't perform the action, and now it's actually not giving me an error anymore but it's pasting the code itself into D1 instead of the picture. Help?

Thanks, Katherine

 

[katk]

Note: I also tried changing ActiveSheet to Sheets("Rough Draft") [name of the copy-from sheet] in case that was contributing to the problem, but it didn't change anything...