如何去掉ＥＸＣＥＬ菜单栏里某一项ＯＲ如何正确的在菜单栏里添加一项

Question

Dim 子菜单 As CommandBarControl 
Dim BER As CommandBarControl  
Set 子菜单 = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup)  
子菜单.Caption = "TEST(&F)" 
  With 子菜单 
  Set BER = .Controls.Add(Type:=msoControlButton) 
    With BER 
      .Caption = "保存" 
      .BeginGroup = True 
      .OnAction = "保存" 
      .FaceId = 3 
    End With 
    End With 
Set 子菜单 = Nothing 
Set BER = Nothing 
这是我做测试在ＥＸＣＥＬ菜单栏上加了一项，可是每次打开ＥＸＣＥＬ运行就多一个＂ＴＥＳＴ＂．现在菜单栏上已经好几个了．怎么才能把它去掉．而且程序里要怎么写才能只添加一个呀？ 
我是用ＶＢＡ写的代码

Answer 1

Dim a As CommandBarControl
For Each a In ThisWorkbook.Application.CommandBars(1).Controls
     a.Delete True
Next