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

With menu1
   .Controls.Add Type:=msoControlButton
   With .Controls(1)
        .Caption = "追加１"
        .OnAction = "ki073b"
   End With
    .Controls.Add Type:=msoControlButton
   With .Controls(2)
        .Caption = "追加２"
        .OnAction = "ki073b"
   End With
   
    .Controls.Add Type:=msoControlPopup
   With .Controls(3)
        .Caption = "追加３"
        .Controls.Add Type:=msoControlButton
        .Controls(1).Caption = "サブ追加１"
        .Controls(1).OnAction = "ki073b"
        
        .Controls.Add Type:=msoControlButton
        .Controls(2).Caption = "サブ追加２"
        .Controls(2).OnAction = "ki073b"
   End With
 End With
End Sub

Sub ki073a()
    Set menu1 = CommandBars("worksheet menu bar")
    menu1.Reset
 End Sub
Sub ki073b()
  MsgBox "実行マクロは登録してありません。"
End Sub