Hi Pancho

Your code worked for me
-
XL2002
Regards

William


"pancho" wrote in message
...
| I have created dinamically a menu with something like this:
| Dim cmbc As CommandBarControl
| Set cmbc = cmbp.Controls.Add(Type:=msoControlButton, _
| ID:=2950, Befo=1)
| cmbc.Caption = "My new Option"
| cmbc.OnAction = "'" & ThisWorkbook.FullName & _
| "'!NewAction"
|
| But for I can't activate a ToolTipText, or a Status with:
| cmbc.TooltipText = "This is a new command"
|
| Do you know if I can do something to see a Control Tool
| Tip text near the menu, or to see a StatusBar Help, when
| the mouse are over the dynamic menus?
|
| Thanks in advance
|
| Francisco Mariscal