Sub ki076()
chkm = 0
    For Each cm In Application.CommandBars
        If cm.Name = mym Then
              CommandBars(mym).Visible = True
              chkm = 1
              Exit Sub
        End If
    Next
 
If chkm = 0 Then
 Set menu2 = Application.CommandBars.Add _
(Name:=mym, MenuBar:=True)
        With menu2
          .Visible = True
          .Controls.Add Type:=msoControlPopup
              .Controls(1).Caption = "̧��"
          .Controls.Add Type:=msoControlPopup
              .Controls(2).Caption = "HTML�֕ϊ�"
          .Controls.Add Type:=msoControlPopup
              .Controls(3).Caption = "�ƭ-�I��"
        End With
End If
End Sub