Copy data from one workbook to another does not work.

[abi_learn_vba]

Hi,

I am getting an error at the last line of the code. i get error as "Run Timer error 438" Object does not support this property or method. Am i coding it wrong? Not able to identify what is the problem. If my below line is wrong is there a better way to do this?

Set mybk = ThisWorkbook
mybook = Application.GetOpenFilename(, , "Select New File", , False)
    If mybook = False Then
        Exit Sub
        Else
    End If
Set inbk = Workbooks.Open(mybook)
[COLOR="Red"]inbk.Range("A:D").Copy Destination:=mybk.Sheets("Downloaded File").Range("A:D")[/COLOR]

Thanks
-Abi

 

[Boller]

This is missing a sheet reference :-

inbk.Range("A:D")

 

[abi_learn_vba]

Thanks for your reply... It worked, below is the corrected code.

Set mybk = ThisWorkbook
mybook = Application.GetOpenFilename(, , "Select New File", , False)
    If mybook = False Then
        Exit Sub
        Else
    End If
Set inbk = Workbooks.Open(mybook)
Set sht = inbk.ActiveSheet
sht.Range("A:D").Copy Destination:=mybk.Sheets("Downloaded File").Range("A:D")