Sub RemoveHideMenuItems() CommandBars("Column").Controls("Hide").Delete CommandBars("Row").Controls("Hide").DeleteEnd Sub