Object does not support method on Copy Destination

[Ebes1099]

I'm getting a Runtime error 438 Object does not support this property or method on the bolded line of code below. It's a pretty simple copy and paste so I'm not sure why. The named range "Plan_Name_Hdr" exists in the destination workbook, supp.

Dim model_one As String, model_one_Full As String, supp As String
    Dim x As Integer
    
    supp = "Exhibits v2.xlsm"
    model_one = "model_1.xlsm"
    model_one_Full = "C:\Users\user1\Desktop\Doc" & "\" & model_one
    
    Workbooks.Open Filename:=model_one_Full

    'Used for offest formulas
    x = 0

    Sheets("Main").Activate
    [b]Range("A13").Copy Destination:=Workbooks(supp).Range("Plan_Name_Hdr").Offset(0, x)[/b]

 

[SkipVought]

Hi,

Do you actually have a RANGE NAME of Plan_Name_Hdr?

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}

 

[Ebes1099]

I do.

I tried replacing that line with these few lines to see if this would work and it does exactly what I want.

Dim tmp As String
Sheets("Main").Activate
    tmp = Range("A13").Value
    Workbooks(supp).Activate
    Range("Plan_Name_Hdr").Value = tmp

Is it something in my Destination statement, or something to do with the Destination being in a different workbook? Could I have missed an argument?

 

[Ebes1099]

Even if I put in a cell reference instead of the Named Range I get the same error.

 

[SkipVought]

How about a sheet name?

Range("A13").Copy Destination:=Workbooks(supp)[highlight #FCE94F].worksheets(???)[/highlight].Range("Plan_Name_Hdr").Offset(0, x)

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}

 

[SkipVought]

other than that try...

    x = 0

    Workbooks(model_one_Full).Sheets("Main").Range("A13").Copy
    Workbooks(supp)[highlight #FCE94F].WorkSheet(???)[/highlight].Range("Plan_Name_Hdr").Offset(0, x).xlPasteSpecial xlPasteAll

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}