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


Sub ki070a()
Set menu1 = CommandBars("worksheet menu bar"). _
Controls.Add(Type:=msoControlPopup)
menu1.Caption = "�l���j���|"
End Sub