Adjusting a control's Visible property
Sub ToggleAllToolbars() For Each cb In CommandBars If cb.Type = msoBarTypeNormal Then cb.Visible = Not cb.Visible End If Next cb End Sub