Function ToggleCommandBarControl(controlname As String, barname As String)

  Dim cbarMenu As CommandBar

  Set cbarMenu = CommandBars(barname)

 cbarMenu.Controls(controlname).Enabled = _

      Not cbarMenu.Controls(controlname).Enabled

End Function