Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Adding and deleting menus automatically

Private Sub Workbook_BeforeClose(Cancel As Boolean)     If Not Me.Saved Then         Msg = "Do you want to save the changes you made to "         Msg = Msg & Me.Name & "?"         Ans = MsgBox(Msg, vbQuestion + vbYesNoCancel)         Select Case Ans             Case vbYes                 Me.Save             Case vbNo                 Me.Saved = True             Case vbCancel                 Cancel = True                 Exit Sub         End Select     End If     Call DeleteMenu End Sub