Hi

I have a workbook from which I need to open 2 other workbooks seperately and
run the Print_Summary macro from within each. My problem is, each workbook
has a UserForm which loads on open for the benefit of the users of those
workbooks. My code opens the workbook OK, but the UserForm seems to stop the
rest of the code from running since if I close the UserForm manually it
continues to run as I want it to. How do I get around this problem so that
the code runs without being interupted by the UserForm loading?The form is
called frmMenuBrac and
the code I am using:

Sub Print_Budget_ALL()

Application.DisplayAlerts = False
Workbooks.Open Filename:= _
"X:\ACCOUNTS-EAST\New MA Project\Budget\2009\BracBudget.xls",
UpdateLinks:=3
Application.Run "'BracBudget.xls'!Print_Stowmarket_Summary"
Workbooks("BracBudget.xls").Close
Application.DisplayAlerts = True

End Sub

Thanks for your help
Martyn
--
Excel 2000, Windows 2003 over Citrix PS4

Try setting a reference to the workbook you are opening and then unload the
form.

e.g

Sub Print_Budget_ALL()
Dim wbEx as Workbook
Application.DisplayAlerts = False
Set wbEx = Workbooks.Open(Filename:= _
"X:\ACCOUNTS-EAST\New MA Project\Budget\2009\BracBudget.xls", _
UpdateLinks:=3)

Unload frmMenuBrac

End With

Application.Run "'BracBudget.xls'!Print_Stowmarket_Summary"

wbEx.Close SaveChanges:=False
Application.DisplayAlerts = True

End Sub

--

Regards,
Nigel




"WembleyBear" wrote in message
...
Hi

I have a workbook from which I need to open 2 other workbooks seperately
and
run the Print_Summary macro from within each. My problem is, each workbook
has a UserForm which loads on open for the benefit of the users of those
workbooks. My code opens the workbook OK, but the UserForm seems to stop
the
rest of the code from running since if I close the UserForm manually it
continues to run as I want it to. How do I get around this problem so that
the code runs without being interupted by the UserForm loading?The form is
called frmMenuBrac and
the code I am using:

Sub Print_Budget_ALL()

Application.DisplayAlerts = False
Workbooks.Open Filename:= _
"X:\ACCOUNTS-EAST\New MA Project\Budget\2009\BracBudget.xls",
UpdateLinks:=3
Application.Run "'BracBudget.xls'!Print_Stowmarket_Summary"
Workbooks("BracBudget.xls").Close
Application.DisplayAlerts = True

End Sub

Thanks for your help
Martyn
--
Excel 2000, Windows 2003 over Citrix PS4

Hi Nigel

Thanks, I tried this but the form still stops the code after the workbook is
opened to the print macro fails to run. If I close the form manually, I then
get an error on the line Unload frmMenuBrac saying "object required -
frmMenuBrac". I double-checked the name of the object is spelt correctly but
I wonder if this is possibly because I closed the form manually anyway?

Martyn
--
Excel 2000, Windows 2003 over Citrix PS4


"Nigel" wrote:

Try setting a reference to the workbook you are opening and then unload the
form.

e.g

Sub Print_Budget_ALL()
Dim wbEx as Workbook
Application.DisplayAlerts = False
Set wbEx = Workbooks.Open(Filename:= _
"X:\ACCOUNTS-EAST\New MA Project\Budget\2009\BracBudget.xls", _
UpdateLinks:=3)

Unload frmMenuBrac

End With

Application.Run "'BracBudget.xls'!Print_Stowmarket_Summary"

wbEx.Close SaveChanges:=False
Application.DisplayAlerts = True

End Sub

--

Regards,
Nigel




"WembleyBear" wrote in message
...
Hi

I have a workbook from which I need to open 2 other workbooks seperately
and
run the Print_Summary macro from within each. My problem is, each workbook
has a UserForm which loads on open for the benefit of the users of those
workbooks. My code opens the workbook OK, but the UserForm seems to stop
the
rest of the code from running since if I close the UserForm manually it
continues to run as I want it to. How do I get around this problem so that
the code runs without being interupted by the UserForm loading?The form is
called frmMenuBrac and
the code I am using:

Sub Print_Budget_ALL()

Application.DisplayAlerts = False
Workbooks.Open Filename:= _
"X:\ACCOUNTS-EAST\New MA Project\Budget\2009\BracBudget.xls",
UpdateLinks:=3
Application.Run "'BracBudget.xls'!Print_Stowmarket_Summary"
Workbooks("BracBudget.xls").Close
Application.DisplayAlerts = True

End Sub

Thanks for your help
Martyn
--
Excel 2000, Windows 2003 over Citrix PS4