[VBA] Copy and Paste Image

[thowe]

Halli, hallo am grünen Donnerstage....

Ich habe hier (eigentlich in einer Klasse) eine kleine Subroutine. Die macht was sie soll:

Code:

Sub CopyAndPaste(strImageName As String)
    wksData.Activate
    wksData.Shapes.Range(Array(strImageName)).Select
    Selection.Copy
    wksKFZNeu.Activate
    wksKFZNeu.Range("F1:G1").Select
    wksKFZNeu.Paste
End Sub

Meine Frage dazu:
Beim "Debuggen" ist mir aufgefallen das ich:

Das Arbeitsblatt indem sich das zu kopierende Bild befindet, aktivieren (oder auswählen) muss  UND
Dannach auch das Arbeitsblatt indem ich es einfügen möchte.

Ein kurzes knappes:

Code:

wksData.Shapes.Range(Array(strImageName)).Copy

wksCalculation.Range("F1:G1").Paste

genügt nicht.

Als "aufmerksamer" Leser meiner Lieblingsforen, befolge ich den Ratschlag sowenig wie möglich, bzw. gar nicht zu "Selecten".
Und dieses

Code:

wksData.Shapes.Range(Array(strImageName)).Copy

hab ich vom Makrorecorder.
Gibt es für das kpieren auch eine andere Möglichkeit als via .Range(Array(...))?

Danke vorab für eure Antworten