How to delete Custom VBA Menu


G

Guest

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
 
Ad

Advertisements

B

Bob Phillips

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

Advertisements


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top