Jag försökte via macro bygga så att en något mer avancerad arbetsbok i jobbet kan få en tabell inklistrad som bild på en utskriftsflik. Skärmklippet skall komma från en annan flik, men jag får upp runtime error 1004 och den hänvisar då till min VBA-kod (fet-markerat nedan).

Feltexten:
Jag får upp "körfel nr '1004',:
"Objektet med det angivna namnet kunde inte hittas" 

Den klistrar in bilden ändå, men det är väldigt störande att få upp fel-rutan och andra medarbetare kan givetvis bli lite förvirrade av det. 

Min spontana gissning är att jag behöver bygga något mer avancerat när det kommer till Shapes.Range, men jag hittar inte hur. Någon som kan hjälpa mig i rätt riktning? 

Sub xxaab()
' xxaab Makro
'
'

    Sheets("blad 1").Select
    Range("H9:K17").Select
    Selection.Copy
    Sheets("blad 2").Select
    Range("O18").Select
    ActiveSheet.Pictures.Paste.Select
    ActiveSheet.Shapes.Range(Array("Picture 5")).Select

End Sub