主题：屏蔽菜单项的代码

写了一段屏蔽菜单项的代码，但是最后两行报错，无法屏蔽“日常工作”项下的“窗口”，错误截屏见附件
此主题相关图片如下：qq截图20151223114324.jpg

Dim gp As RibbonMenu.Group

gp = RibbonTabs("Common").Groups("Data")

gp.Visible = False

gp = RibbonTabs("Common").Groups("ClipBoard")

gp.Visible = False

gp = RibbonTabs("Common").Groups("Statisic")

gp.Visible = False

gp = RibbonTabs("Common").Groups("Edit")

gp.Visible = False

gp = RibbonTabs("Common").Groups("QuickStatistic")

gp.Visible = False

gp = RibbonTabs("Common").Groups("window")

gp.Visible = False