Grateful for any advice on an ActiveWorkbook.close problem.

I am running a macro that opens each excel file in a folder in turn. The
macro then calls another macro that deletes the links on a worksheet in that
file, then it runs a function that calculates averages using data on that
worksheet and plugs resulting data into cells on that worksheet, then various
items of data are uploaded to a new Access database. The focus then returns
to the original macro that then closes the workbook; using
Activeworkbook.close savechanges:=false

Everytime it stops at this point and shows the standard Microsoft runtime
error 1004. If I click on debug button on that message the file then closes?
I have tried hard coding the filename and it still produces the same error.

If I comment out the delete links part of the macro it works fine, which to
me indicates that the problem is connected with deleting the links. Does
anyone have any ideas what could be causing this error.


--
with kind regards

Spike

Hi Spike,

It's possible that one of the workbooks has an Open/Close event macro in its
workbook module.

Try inserting the below messages above and below your ActiveWorkbook.close
line

Application.EnableEvents = False ' Stops any Auto events from running on
other macro workbooks
Activeworkbook.close savechanges:=false
Application.EnableEvents = True ' Re-enables the events

Alan

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200905/1

Thank you all for your help. It appers that the workbook/s the macro is
opening are very heavily locked down, have made the necessary alterations and
now works fine.
--
with kind regards

Spike


"Alan McQuaid via OfficeKB.com" wrote:

Hi Spike,

It's possible that one of the workbooks has an Open/Close event macro in its
workbook module.

Try inserting the below messages above and below your ActiveWorkbook.close
line

Application.EnableEvents = False ' Stops any Auto events from running on
other macro workbooks
Activeworkbook.close savechanges:=false
Application.EnableEvents = True ' Re-enables the events

Alan

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200905/1