One custom menu copies

[David]

I use this as part of a backup system each month:

Sub New_Month()
If MsgBox("Warning!! This Action Will Clear All Attendance!" & Chr(13) &
"Continue?", vbCritical + vbYesNo) = vbNo Then Exit Sub
Application.ScreenUpdating = False
Sheets(Array(5, 6)).Copy
Sheets(2).Range("Print_Area").Value = Sheets(2).Range("Print_Area").Value
ActiveWorkbook.SaveAs "FoodProduction" & Format(Range("g2"), "mmmyyyy") &
".xls"
ActiveWorkbook.Close

The weird thing is, one (of two) of the original workbook's custom menu
items copies to the new file, and then is duplicated on the original
workbook's menu bar when the copied sheets' file is closed. I already have
Workbook_Activate/Deactivate routines in place in the original file that I
thought would take care of that, but still the pesky menu item sticks.

What to do?

 

[David]

David wrote

I use this as part of a backup system each month:

Sub New_Month()
If MsgBox("Warning!! This Action Will Clear All Attendance!" & Chr(13)
& "Continue?", vbCritical + vbYesNo) = vbNo Then Exit Sub
Application.ScreenUpdating = False
Sheets(Array(5, 6)).Copy
Sheets(2).Range("Print_Area").Value =
Sheets(2).Range("Print_Area").Value ActiveWorkbook.SaveAs
"FoodProduction" & Format(Range("g2"), "mmmyyyy") & ".xls"
ActiveWorkbook.Close

The weird thing is, one (of two) of the original workbook's custom
menu items copies to the new file, and then is duplicated on the
original workbook's menu bar when the copied sheets' file is closed. I
already have Workbook_Activate/Deactivate routines in place in the
original file that I thought would take care of that, but still the
pesky menu item sticks.

What to do?

Ok, I stopped it by adding an Application.EnableEvents=False, but still
curious why only one menu item was copied to new workbook. Is it because
it's the one I was clicking to fire the routine?