Excel VisualBasic Script

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim cbWSMenuBar As CommandBar
    On Error Resume Next
    Set cbWSMenuBar = Application.CommandBars("Worksheet menu bar")
    cbWSMenuBar.Controls("MrExcel Programs").Delete
End Sub