Sub HideMenus()
sts = HypHideRibbonMenu ("Sheet1", "Smart View->Submit Data", "Panel")
sts = HypHideRibbonMenu("Sheet1", "Smart View->Refresh->Refresh")
‘Hides the submenu item Refresh under the Refresh split button
sts = HypHideRibbonMenu("Sheet1", "Essbase->POV", "Smart View->Copy", "Essbase->Same Workbook")
‘Hides menu items for different ribbons on the same sheet
End Sub