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

[fooltutu]

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
这是我做测试在ＥＸＣＥＬ菜单栏上加了一项，可是每次打开ＥＸＣＥＬ运行就多一个＂ＴＥＳＴ＂．现在菜单栏上已经好几个了．怎么才能把它去掉．而且程序里要怎么写才能只添加一个呀？