Function ToggleCommandBarSubmenu(ctl1 As String, ctl2 As String, barname As String)

  Dim cbarMenu As CommandBar

  Set cbarMenu = CommandBars(barname)

 cbarMenu.Controls(ctl1).Controls(ctl2).Enabled = _

     Not cbarMenu.Controls(ctl1).Controls(ctl2).Enabled

End Function