Sub ki072()
Set menu1 = CommandBars("worksheet menu bar"). _
Controls.Add(Type:=msoControlPopup)
menu1.Caption = "個人メニュ−"
menu1.OnAction = "ki072b"
End Sub

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

Sub ki072b()
  MsgBox "実行マクロは登録してありません。"
End Sub