Please explain why this simplest bit of VBA select doesn't work

[Johnny C]

Here's the code. There's 2 workbooks, the intention is to copy from one to the other. Both workbook names are strings. Both files have worksheets codenamed wksSourceData/wksTargetData (it doesn't make any odds if I change them).

But I'm getting 'Objest doesn't support this property or method' on either of the select statements (oddly sometimes it's the forst sometimes it's the second)

I've been using this code for years, what am I doing wrong? I think I'm going senile

Workbooks(ThisFile).Activate
ActiveWorkbook.wksSourceData.Range("A5:A2000").Select
Selection.Copy
Workbooks(CopyFile).Activate
ActiveWorkbook.wksTargetData.Range("N4").Select

 

[Fluff]

The code you originally posted is using the sheet codename in two different workbooks. You CANNOT do that unless you have specifically set a reference to the other workbook in the VB Editor (Not in the code)

 

[Johnny C]

Ah it need a tools/Reference? I'm sure I've never had to do that before. Unfortunately the user chooses the file and they're no VBA savvy so references are out.
I got around it by SET each workbook and then loop through worksheets until the codenames I wanted are found and set a string I can use sheets() with. Clumsy but it works.
Application.ScreenUpdating doesn't work either. I can't figure out why. One macro with it in works, one doesn't. I even copied the code from one to the other and it still doesn't work.

 

[Fluff]

Glad you've sorted it & thanks for the feedback.

 

[Johnny C]

Thanks for your help (yet again!) Fluff