Custom Menu For 1 Workbook Not Deleting On Deactivate

The following code for a custom menu is used in a workbook which has two sheets with
embedded charts, two chart sheets and several sheets for calculations
and information

In This Workbook


Private Sub Workbook_Activate() 'Changed Activate to Open
Run "AddMenus"
End Sub

and


Private Sub Workbook_Deactivate() 'Changed Deactivate to Close
Run "DeleteMenu"
End Sub

and


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Run "DeleteMenu"
End Sub