Dim cbr As CommandBar
Dim cbrReports As CommandBarPopup
On Error GoTo Err_fncMenuDefaults
Set cbr = CommandBars("WorkOrders")
Set cbrReports = cbr.Controls("Reports")
'/don't really care about errors here ...
On Error Resume Next
With cbrReports
.Controls("Open Excel").Visible = False
.Controls("Email This Report").Visible = False
.Controls("Close This Report").Visible = False
.Controls("Configuration").Visible = False
.Controls("Quick Reports").Visible = False
End With
|