Excel VisualBasic Script

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim Msg As String
    Dim Response
    Dim cbWSMenuBar As CommandBar
    If Not ThisWorkbook.Saved Then
        Msg = "Do you want to save the changes you made to " & Me.Name & "?"
        Response = MsgBox(Msg, vbQuestion + vbYesNoCancel)
        Select Case Response
            Case vbYes
                ThisWorkbook.Save
            Case vbNo
                ThisWorkbook.Saved = True
            Case vbCancel
                Cancel = True
                Exit Sub
            End Select
    End If
    On Error Resume Next
    Set cbWSMenuBar = Application.CommandBars("Worksheet menu bar")
    cbWSMenuBar.Controls("MrExcel Programs").Delete
End Sub