Sub ki081()
  With CommandBars("cell").Controls.Add
    .Caption = "HTML変換ｽﾀ-ﾄ"
    .OnAction = "Macro1"
    .BeginGroup = True
 End With
End Sub
Sub ki081a()
On Error Resume Next
 CommandBars("cell").Controls("HTML変換ｽﾀ-ﾄ").Delete
On Error GoTo 0
End Sub


Sub ki081b()
 With ShortcutMenus(xlWorksheetCell)
    .MenuItems.Add "-"
    .MenuItems.Add "HTML変換ｽﾀ-ﾄ", "Macro1"
 End With
End Sub