I have a macro that runs everytime I open a new book after it is ran the
first time. I have to close Excel to open a new book without it running.
What is causing this problem? I've tried changing the name of the macro
without "auto_open".

Sub Change()

Application.OnWindow = "Restore_menus"

Application.Windows("test2.xls").OnWindow = "Disable_menu"

End Sub

I am guessing Change the macro that was named Auto_Open.

In any event, I would say that

Application.OnWindow
sets an application level event.

So anytime a window is activated (such as opening a new workbook) that Macro
(Restore_Menus) will be run.

If you want it workbook level, perhaps then

Application.Windows("test2.xls").OnWindow = "Restore_menus"

rather than

Application.OnWindow = "Restore_menus"

--
Regards,
Tom Ogilvy


"travis" wrote:

I have a macro that runs everytime I open a new book after it is ran the
first time. I have to close Excel to open a new book without it running.
What is causing this problem? I've tried changing the name of the macro
without "auto_open".

Sub Change()

Application.OnWindow = "Restore_menus"

Application.Windows("test2.xls").OnWindow = "Disable_menu"

End Sub

Thank you, Tom.

Yes, at one point the macro was named "Auto_Open", I thought maybe that was
the problem. It wasn't. This was very helpful.

Travis

"Tom Ogilvy" wrote:

I am guessing Change the macro that was named Auto_Open.

In any event, I would say that

Application.OnWindow
sets an application level event.

So anytime a window is activated (such as opening a new workbook) that Macro
(Restore_Menus) will be run.

If you want it workbook level, perhaps then

Application.Windows("test2.xls").OnWindow = "Restore_menus"

rather than

Application.OnWindow = "Restore_menus"

--
Regards,
Tom Ogilvy


"travis" wrote:

I have a macro that runs everytime I open a new book after it is ran the
first time. I have to close Excel to open a new book without it running.
What is causing this problem? I've tried changing the name of the macro
without "auto_open".

Sub Change()

Application.OnWindow = "Restore_menus"

Application.Windows("test2.xls").OnWindow = "Disable_menu"

End Sub