D
dalian1803
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
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