In excel 200 VBA Programmer's Reference Chapter 12 page 207.
Creating New menus.
It works nicely, but my problem is, When I activate certain sheets in the workbook, then I would like to set some of the menu items to
Enabled = False. Can anyone help with this.

The answer to your problem is to associate the code with the SheetActivate / SheetDeactivate events.
Go to the codepage associated with ThisWorkbook for whichever project you are working in.
At the top left of the actual CodePage, there is a dropdown that probably says '(General)'. Click this and select 'Workbook'. You will now see that top right dropdown's contents have changed (and Excel has probably created a 'Workbook_Open' event stub for you).
Click on the dropdown and select 'SheetActivate', you will see Excel place an Event stub on the CodePage for you. All you need to do now is place the code to enable your CommandBar here.
If you only want the command bar to appear for certain sheets, you can use the Default parameter 'sh' to determine the name of the activated worksheet (i.e. sh.Name) and write conditional logic for your particular scenario.
Don't forget to do the same thing for the 'SheetDeactivate' event, too.

Chris

There are two secrets to success in this world:
1. Never tell everything you know

Hey again
Maybe i did not make my self clear. So here is my example.

This just like the book and works fine.
Application.CommandBars("File").Controls("Save").E nabled = False

This is a part of my Custom Menu.
It contains several items but I only want to disable "Opdater Statestik"

Private Sub Worksheet_Activate()

  Application.CommandBars("Slagelse Dart Klub").Controls ("Opdater Statestik").Enabled = False
end sub

But that dosn't work. Can anyone help with this. I have now spend a lot of time on this and I really stoked.

Thanks in advance
Karsten

The "Name" property of the CommandBar object, or the "Caption" property of the CommandBarButton object you are referencing must be incorrect

Try referencing the control by its numeric index to see if that improves your result, eg

Application.CommandBars("Slagelse Dart Klub").Controls(x).Enabled = False

..where x = the position of the control in the custom toolbar

If it works, you could try printing the Caption property to the debug window to see what the application thinks the named index should be.

Thanks for your suggestion.
Unfortunatly it didn't work.
In debug mode I get "Invalid procedure call or argument"
I have tried to run the macro Third level controls and here the menu is present. So now I am really lost. I hope someone can help.
The main problem is that if some of the menu item are processed from certain sheets it will result in very strange outputs.