Sub ki071()
Set menu1 = CommandBars("worksheet menu bar"). _
Controls.Add(Type:=msoControlPopup)
menu1.Caption = "個人メニュ−"
menu1.OnAction = "ki071b"
 
 Set menu1 = CommandBars("worksheet menu bar")
 menu1.Controls("個人メニュ−").Enabled = False
 
End Sub
Sub ki071a()
    Set menu1 = CommandBars("worksheet menu bar")
    menu1.Reset
 End Sub
Sub ki071b()
  MsgBox "実行マクロは登録してありません。"
End Sub