Menu bar question
 

I have added the following to my right click before to add an item to the
menu bar.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)

Dim NewItem As CommandBarButton

Application.CommandBars("Cell").Reset


If Not Application.Intersect(Target, Range("c2:AZ1000")) _
Is Nothing Then
Set NewItem = Application.CommandBars("Cell").Controls.Add
With NewItem
.Caption = "Show Open Cuts/Po's"
.OnAction = "ShowDetail"
.BeginGroup = True
End With
End If


End Sub




However I'm now trying to add it to the right click on some cells that I
don't think have the "CELL" command bar as the one that's being used.
I'm trying to add it on a cell that is part of a MS Query.

Can you tell me the commandbar to add it to, or tell me some way to
determine what the command bar should be?


Thanks,
Alan Sawyer

Menu bar question
 

Hi Alan,

Try:
Application.CommandBars("Query")
or
Application.CommandBars("Query Layout")


---
Regards,
Norman



wrote in message
...
I have added the following to my right click before to add an item to the
menu bar.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)

Dim NewItem As CommandBarButton

Application.CommandBars("Cell").Reset


If Not Application.Intersect(Target, Range("c2:AZ1000")) _
Is Nothing Then
Set NewItem = Application.CommandBars("Cell").Controls.Add
With NewItem
.Caption = "Show Open Cuts/Po's"
.OnAction = "ShowDetail"
.BeginGroup = True
End With
End If


End Sub




However I'm now trying to add it to the right click on some cells that I
don't think have the "CELL" command bar as the one that's being used.
I'm trying to add it on a cell that is part of a MS Query.

Can you tell me the commandbar to add it to, or tell me some way to
determine what the command bar should be?


Thanks,
Alan Sawyer

Menu bar question
 

Thanks, I'll give it a try in the morning when I get into the office.
Alan

Menu bar question
 

Hi Alan,

You might like to download John Green's nice CBList addin which, amongst
other things, lists all CommandBars It also provides a listing of all Popup
menus and their constituent elements.

It is freely downloadable from Rob Bovey's Office automation site:

http://www.oaltd.co.uk/MVP/Default.htm


---
Regards,
Norman


wrote in message
...
Thanks, I'll give it a try in the morning when I get into the office.
Alan

Menu bar question
 

"Query" worked.
Thanks a lot. I just couldn't figure out which one was correct.

Thanks again,
Alan Sawyer

Menu bar question
 

I'll sure take a look.
Thanks,
Alan