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
Bookmarks