RunTime Error 438

[akynyemi]

Hi Guys,

I need your help, on VBA code below. My aim is to be able to copy a range from one workbook to another and I get the Run Time Error 438 on the line colored red.

Can this code be corrected or is there an easier way to get this done?

Thanks.

Please Login or Register  to view this content.

[AB33]

Please Login or Register  to view this content.

Should have a worksheet name.
wbTarget is a workbook, so need to add the sheet within in the workbook
Like

Please Login or Register  to view this content.

[akynyemi]

Thanks AB33,

It worked perfectly. I have one more question though. What if I want to modify this code in such a way that when it runs, I would have the open dialog box to select the excel workbook I want to paste my data into. This would help in the sense that I would want to copy a range to separate workbooks at different times.

Thanks again.

[Norie]

Why not replace this code,

Please Login or Register  to view this content.

with this?

Please Login or Register  to view this content.

And this,

Please Login or Register  to view this content.

with this.

Please Login or Register  to view this content.

As for a dialog for selecting the file, you could use Application.GetOpenFilename.

Please Login or Register  to view this content.

[akynyemi]

Thanks Norie for taking time out, it worked perfectly.

Regards.

[akynyemi]

Hi Norie,

I modified my code further in such a way that if no file is selected, it displays a message and then exits. But I have another Runtime Error 13 "Type Mismatch on "If strFileName = False Then"

My full code is below.


Thanks.

Please Login or Register  to view this content.

[Izandol]

strFileName is string therefore you must compare to "False" not False. or preferably use a Variant rather than String.

[Norie]

Izandol is right you need to use "False".

By the way, all that activating/selecting isn't needed.

[akynyemi]

Thanks Guys.

Regards.