How to delete Custom VBA Menu

I have created a VBA menu using the following code and now want to remove the
menu but can't. Any ideas on how to remove the menu and to make it go away
when I close the particular file it is attached to?

Jeff

Sub AddNewMenu()

Dim oCB As CommandBar
Set oCB = Application.CommandBars("Worksheet Menu Bar")
Dim newMenu As CommandBarControl

Set newMenu = oCB.Controls.Add(Type:=10)
With newMenu
.Caption = "Transit Manager"
.Enabled = True
With .Controls.Add(Type:=msoControlButton)
.Caption = "Start . . ."
.FaceId = 39
.OnAction = "Start_New_Process"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Import LE's"
.FaceId = 938
.OnAction = "macro2"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Import Actuals"
.FaceId = 988
.OnAction = "macro3"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Print Reduced"
.FaceId = 707
.OnAction = "macro2"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Button5"
.FaceId = 29
.OnAction = "macro1"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Finish . . ."
.FaceId = 41
.OnAction = "macro2"
End With
End With

End Sub

Application.CommandBars("Worksheet Menu Bar").Controls("Tranist
Manager").Delete


--
HTH

Bob Phillips

"Jeff" <[email protected]> wrote in message
news:[email protected]...
> I have created a VBA menu using the following code and now want to remove
the
> menu but can't. Any ideas on how to remove the menu and to make it go away
> when I close the particular file it is attached to?
>
> Jeff
>
> Sub AddNewMenu()
>
> Dim oCB As CommandBar
> Set oCB = Application.CommandBars("Worksheet Menu Bar")
> Dim newMenu As CommandBarControl
>
> Set newMenu = oCB.Controls.Add(Type:=10)
> With newMenu
> .Caption = "Transit Manager"
> .Enabled = True
> With .Controls.Add(Type:=msoControlButton)
> .Caption = "Start . . ."
> .FaceId = 39
> .OnAction = "Start_New_Process"
> End With
> With .Controls.Add(Type:=msoControlButton)
> .Caption = "Import LE's"
> .FaceId = 938
> .OnAction = "macro2"
> End With
> With .Controls.Add(Type:=msoControlButton)
> .Caption = "Import Actuals"
> .FaceId = 988
> .OnAction = "macro3"
> End With
> With .Controls.Add(Type:=msoControlButton)
> .Caption = "Print Reduced"
> .FaceId = 707
> .OnAction = "macro2"
> End With
> With .Controls.Add(Type:=msoControlButton)
> .Caption = "Button5"
> .FaceId = 29
> .OnAction = "macro1"
> End With
> With .Controls.Add(Type:=msoControlButton)
> .Caption = "Finish . . ."
> .FaceId = 41
> .OnAction = "macro2"
> End With
> End With
>
> End Sub

Thanks Bob, worked like a charm

JEff

"Bob Phillips" wrote:

> Application.CommandBars("Worksheet Menu Bar").Controls("Tranist
> Manager").Delete
>
>
> --
> HTH
>
> Bob Phillips
>
> "Jeff" <[email protected]> wrote in message
> news:[email protected]...
> > I have created a VBA menu using the following code and now want to remove
> the
> > menu but can't. Any ideas on how to remove the menu and to make it go away
> > when I close the particular file it is attached to?
> >
> > Jeff
> >
> > Sub AddNewMenu()
> >
> > Dim oCB As CommandBar
> > Set oCB = Application.CommandBars("Worksheet Menu Bar")
> > Dim newMenu As CommandBarControl
> >
> > Set newMenu = oCB.Controls.Add(Type:=10)
> > With newMenu
> > .Caption = "Transit Manager"
> > .Enabled = True
> > With .Controls.Add(Type:=msoControlButton)
> > .Caption = "Start . . ."
> > .FaceId = 39
> > .OnAction = "Start_New_Process"
> > End With
> > With .Controls.Add(Type:=msoControlButton)
> > .Caption = "Import LE's"
> > .FaceId = 938
> > .OnAction = "macro2"
> > End With
> > With .Controls.Add(Type:=msoControlButton)
> > .Caption = "Import Actuals"
> > .FaceId = 988
> > .OnAction = "macro3"
> > End With
> > With .Controls.Add(Type:=msoControlButton)
> > .Caption = "Print Reduced"
> > .FaceId = 707
> > .OnAction = "macro2"
> > End With
> > With .Controls.Add(Type:=msoControlButton)
> > .Caption = "Button5"
> > .FaceId = 29
> > .OnAction = "macro1"
> > End With
> > With .Controls.Add(Type:=msoControlButton)
> > .Caption = "Finish . . ."
> > .FaceId = 41
> > .OnAction = "macro2"
> > End With
> > End With
> >
> > End Sub
>
>
>