Menu bar question

[asawyer]

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

 

[Norman Jones]

Hi Alan,

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

 

[asawyer]

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

 

[Norman Jones]

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

 

[asawyer]

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

Thanks again,
Alan Sawyer

 

[asawyer]

I'll sure take a look.
Thanks,
Alan