Range zu Cell wechslen

ich habe ein kleines Problem.

Ich würde gerne das Range (bei Target) durch Cell (r,1) ersetzen, so das ich die Zeile variabel halten kann. Leider klappt es bei mir nicht so.

Dim rngSource As Range, rngTarget As Range

Set rngSource = ActiveWorkbook.Worksheets(1).Range("G17:L17")
Set rngTarget = Workbooks("Dateiname.xls").Worksheets(1).Range („A1“)
rngSource.Copy rngTarget

Für jede Hilfe bin ich dankbar.

Michael