请问加载了宏怎么不显示菜单命令，这部分代码都不显示，其他代码显示了。

xzmxb

   '菜单      名称为---功能
    Set mycsh = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, before:=11)
        mycsh.Caption = "功能"
        
    Set my1 = mycsh.Controls.Add(Type:=msoControlPopup, before:=1)
        my1.Caption = "账表加工"
    Set my11 = my1.Controls.Add(Type:=msoControlPopup, before:=1)
        my11.Caption = "分步加工向导"
        
    Set my111 = my11.Controls.Add(Type:=msoControlButton, before:=1)
        my111.OnAction = "加工序时账_分步加工向导_科目余额表"
        my111.Caption = "步骤1：加工[余额表]"
    Set my112 = my11.Controls.Add(Type:=msoControlButton, before:=2)
        my112.OnAction = "加工序时账_分步加工向导_序时账"
        my112.Caption = "步骤2：加工[序时账]"
    Set my113 = my11.Controls.Add(Type:=msoControlButton, before:=3)
        my113.OnAction = "加工序时账_分步加工向导_项目余额表"
        my113.Caption = "辅助核算：加工[项目余额表]"
              
    Set my12 = my1.Controls.Add(Type:=msoControlPopup, before:=2)
        my12.Caption = "批处理加工"
    Set my121 = my12.Controls.Add(Type:=msoControlButton, before:=1)
        my121.OnAction = "加工序时账_用友U8"
        my121.Caption = "仅限1：用友U8"
               
    ''''''''''''''''''''''往来函证'''''''''''''''''''''''''''''''''''''
    Set my2 = mycsh.Controls.Add(Type:=msoControlPopup, before:=2)
        my2.Caption = "往来函证"
        
    '第一组、第二组：程序
    Set my21 = my2.Controls.Add(Type:=msoControlButton, before:=1)
        my21.OnAction = "函证_函证数据源"
        my21.Caption = "步骤1：标记[函证数据源]"
    Set my22 = my2.Controls.Add(Type:=msoControlButton, before:=2)
        my22.OnAction = "函证_生成分组函证"
        my22.Caption = "步骤2：生成[分组函证]"
         
    Set my23 = my2.Controls.Add(Type:=msoControlPopup, before:=3)
        my23.Caption = "各类函证格式"
    Set my231 = my23.Controls.Add(Type:=msoControlButton, before:=1)
        my231.OnAction = "'函证_函证格式 ""往来函证""'"
        my231.Caption = "往来函证"
    Set my232 = my23.Controls.Add(Type:=msoControlButton, before:=2)
        my232.OnAction = "'函证_函证格式 ""交易函证""'"
        my232.Caption = "交易函证"
    Set my233 = my23.Controls.Add(Type:=msoControlButton, before:=3)
        my233.OnAction = "'函证_函证格式 ""税收函证""'"
        my233.Caption = "税收函证"
     
    '第四组：其他格式
    Set my24 = my2.Controls.Add(Type:=msoControlPopup, before:=4)
        my24.Caption = "其他格式"
        
    Set my241 = my24.Controls.Add(Type:=msoControlButton, before:=1)
        my241.OnAction = "'函证_其他格式 ""函证汇总表""'"
        my241.Caption = "函证汇总表"
    Set my242 = my24.Controls.Add(Type:=msoControlButton, before:=2)
        my242.OnAction = "'函证_其他格式 ""函证邮封数据源""'"
        my242.Caption = "函证邮封数据源"
    Set my243 = my24.Controls.Add(Type:=msoControlButton, before:=3)
        my243.OnAction = "'函证_其他格式 ""函证邮封""'"
        my243.Caption = "函证邮封"
        
        
    '选项及设置
    Set my3 = mycsh.Controls.Add(Type:=msoControlPopup, before:=3)
        my3.Caption = "设置"
    Set my31 = my3.Controls.Add(Type:=msoControlButton, before:=1)
        my31.OnAction = "模版更新_京都底稿模版"
        my31.Caption = "模版更新"
    Set my32 = my3.Controls.Add(Type:=msoControlButton, before:=2)
        my32.OnAction = "设置_明细账列宽"
        my32.Caption = "保留当前页设置，作为[筛选-明细账]列宽"
    Set my33 = my3.Controls.Add(Type:=msoControlButton, before:=3)
        my33.OnAction = "设置_抽查表列宽"
        my33.Caption = "保留当前页设置，作为[联查凭证、生成抽查表]列宽"
   
    Application.CommandBars("用友加载宏").Delete
    Application.CommandBars("自定义筛选").Delete

xzmxb

求各位大神帮帮我。