Sub ki077()
On Error Resume Next
    CommandBars("worksheet menu bar").Controls("個人メニュ−").Delete
On Error GoTo 0
'
Set menu1 = CommandBars("worksheet menu bar"). _
Controls.Add(Type:=msoControlPopup)
menu1.Caption = "個人メニュ−"

End Sub

Sub ki077a()
    Set menu1 = CommandBars("worksheet menu bar")
    menu1.Reset
 End Sub