主题：[求助]删除快捷菜单后报错，在哪里改？

删除菜单load事件最后面的代码：

'以下代码用于将Cell快捷菜单中部分命令复制到Range快捷菜单中
'如果自行设计了Range菜单,或者调整了有关菜单命令的名称,请自行修改或删除以下代码
Dim mnu1 As RibbonMenu.ContextMenu = ContextMenus("Cell")
Dim mnu2 As RibbonMenu.ContextMenu = ContextMenus("Range")
If mnu2.Items.Count = 0 '如果Range快捷菜单中没有命令,说明用户没有自行设计Range快捷菜单
    mnu2.Items.Add(ContextMenus("Cell").Items("Cut"),False)
    mnu2.Items.Add(ContextMenus("Cell").Items("Copy"))
    mnu2.Items.Add(ContextMenus("Cell").Items("Paste"))
    mnu2.Items.Add(ContextMenus("Cell").Items("RowMenu"))
    mnu2.Items.Add(ContextMenus("Cell").Items("ColMenu"))
    mnu2.Items.Add(ContextMenus("Cell").Items("Ascending"))
    mnu2.Items.Add(ContextMenus("Cell").Items("Descending"))
    mnu2.Items.Add(ContextMenus("Cell").Items("UnSort"))
End If

理由：

http://www.foxtable.com/help/topics/1079.htm