Activate another workbook?

[TheWennerWoman]

Apologies, I am having a brain freeze.

I am running a macro from a workbook (A) which opens another workbook (B) and then copies data from (B) to (A).

I have this

Workbooks.Open filename:=folder & "\" & filename & ".xlsm", Notify:=False, ReadOnly:=True, Password:="lh01"
Range("Table1[[Contract No]:[Email Address]]").Select  ' falls over here with "select method of Range Class failed"

If I go into workbook (B) and manually select the sheet (which is named "contracts") and then continue with the code execution, it works fine.

What code do I need to make it work? Apparently this used to work fine up until recently (although I'm not sure why).

Thanks as always for any pointers.

 

[DanteAmor]

Could be:

  Workbooks.Open Filename:=folder & "\" & Filename & ".xlsm", Notify:=False, ReadOnly:=True, Password:="lh01"
  Sheets("contracts").Select
  Range("Table1[[Contract No]:[Email Address]]").Select  ' falls over here with "select method of Range Class failed"

But if you are going to copy, it is not necessary to select, just copy and then paste where you need it:

  Workbooks.Open Filename:=folder & "\" & Filename & ".xlsm", Notify:=False, ReadOnly:=True, Password:="lh01"
  Sheets("contracts").Range("Table1[[Contract No]:[Email Address]]").Copy
  
  'For example:
  ThisWorkbook.Sheets("Sheet1").Range("A5").PasteSpecial xlPasteAll

 

[TheWennerWoman]

Perfect, many thanks!