请问如何在excel中添加子菜单~~~

[lynxz]

Sub auto_open()
''On Error Resume Next
MenuBars("new").Delete
MenuBars.Add "new"
MenuBars("new").Activate
Set newmenu = MenuBars("new").Menus.Add(Caption:="A", Before:=1)
Set menuitemadded = MenuBars("new").Menus("A").MenuItems.Add(Caption:="B", Before:=1)
Set menuitemadded = MenuBars("new").Menus("A").MenuItems("B").MenuItems.AddMenu(Caption:="C", OnAction:="msg", Before:=1)
End Sub
就是最后添加子菜单是出现run-time error438，我知道肯定语法有毛病，求教！

[koko897]

看看我在前面"请问各位大侠，如何控制Word或Excel的显示菜单和工具条？"的回复吧，有完整源程序。

[lynxz]

问题已自行解决，不过还是谢谢