Hi guys,

I'm new here so please bear with me.

I have a macro that doesn't do much except open a workbook and copy
some sheets into the active workbook, in the following way:

Set Wbk = Workbooks.Open(Filename:="P:\Finance\Reporting\Machine
Efficiency\" & Year(Date) & "\Total Cost.xls", UpdateLinks:=0,
ReadOnly:=True)

ThisWorkbook.Sheets("Variable Costs").Delete
Wbk.Sheets("Variable Costs").Copy After:=ThisWorkbook.Sheets("Total
Production")

It's been working properly for a while but suddenly its has stopped
working - now when I try to run the macro the whole thing crashes and I
get the following error message -

Runtime Error -2147417848 (80010108)
Automation Error
The Object Invoked has disconnected from its clients.

Has anyone seen this error message before?

TIA for your help,

dalian