I am trying to copy a bunch of worksheets into a new workbook. I have
been using the routine below for years and it has been working fine
until I tried to add another sheet to the array ("Input"). This sheet
has a bunch of combo boxes that trigger a variety of functions when
they are changed. Even though I have tried to turn of the event
triggers prior to copying they are still firing when it tries to paste
the page in the new workbook. Is there any way to avoid this?

Thanks,
James

* I even created a custom flag "DisableEvent" that I try to use to
avoid the triggers.

DisableEvent = True
Application.EnableEvents = False
Application.ScreenUpdating = False

Estimate.Sheets(Array("Input", "Cost Sheet Report", "Product Cost
Report")).Copy After:=NewWorkBook.Sheets("Sheet3")

when you add a newworkbook disable events in the new workbook

Set newbk = Workbooks.Add
newbk.Application.EnableEvents = False

"JGeniti" wrote:

> I am trying to copy a bunch of worksheets into a new workbook. I have
> been using the routine below for years and it has been working fine
> until I tried to add another sheet to the array ("Input"). This sheet
> has a bunch of combo boxes that trigger a variety of functions when
> they are changed. Even though I have tried to turn of the event
> triggers prior to copying they are still firing when it tries to paste
> the page in the new workbook. Is there any way to avoid this?
>
> Thanks,
> James
>
> * I even created a custom flag "DisableEvent" that I try to use to
> avoid the triggers.
>
> DisableEvent = True
> Application.EnableEvents = False
> Application.ScreenUpdating = False
>
> Estimate.Sheets(Array("Input", "Cost Sheet Report", "Product Cost
> Report")).Copy After:=NewWorkBook.Sheets("Sheet3")
>

Thanks Joel, but I'm still getting the same result. Any other ideas?


Joel wrote:
> when you add a newworkbook disable events in the new workbook
>
> Set newbk = Workbooks.Add
> newbk.Application.EnableEvents = False
>
> "JGeniti" wrote:
>
> > I am trying to copy a bunch of worksheets into a new workbook. I have
> > been using the routine below for years and it has been working fine
> > until I tried to add another sheet to the array ("Input"). This sheet
> > has a bunch of combo boxes that trigger a variety of functions when
> > they are changed. Even though I have tried to turn of the event
> > triggers prior to copying they are still firing when it tries to paste
> > the page in the new workbook. Is there any way to avoid this?
> >
> > Thanks,
> > James
> >
> > * I even created a custom flag "DisableEvent" that I try to use to
> > avoid the triggers.
> >
> > DisableEvent = True
> > Application.EnableEvents = False
> > Application.ScreenUpdating = False
> >
> > Estimate.Sheets(Array("Input", "Cost Sheet Report", "Product Cost
> > Report")).Copy After:=NewWorkBook.Sheets("Sheet3")
> >