Dave,

With respect, what are you talking about? I cannot see trailing hyphens in
your email, in my original post, or in Google.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Dave Peterson" wrote in message
...
For some reason, copying and pasting from Google adds extraneous
dashes/hypens
to the code.

This line:
With Application.CommandBars("Cell"*)
should not have that trailing minus:
With Application.CommandBars("Cell")
(a couple of spots)


Bob Phillips wrote:

Charles,

Here is a simple example you can build upon. I tend to add in the
Workbook_Open event and remove in the Workbook_BeforeClose.

Public Sub addMenu()
removeMenu 'just in case
With Application.CommandBars("Cell"*)
With .Controls.Add(Type:=msoControl*Button)
.BeginGroup = True
.Caption = "Routine1"
.OnAction = "Another"
End With
With .Controls.Add(Type:=msoControl*Button)
.Caption = "Routine2"
.OnAction = "YetMore"
End With
End With
End Sub

Public Sub removeMenu()
On Error Resume Next
With Application.CommandBars("Cell"*)
.Controls("Routine1").Delete
.Controls("Routine2").Delete
End With
On Error GoTo 0
End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)

"Charles Jordan" wrote in message
om...
Hi I am trying to manipulate multiple controls on a worksheet plus
some drawing objects and in the days of XL95 John Walkenbach had a
marvellous "Power Utility Pak" "Object Properties" tool for altering
both the location of objects and whether they were Visible/Invisible.

One of its great features was that it was accessible by selecting the
object and then *right clicking* it. We are now trying to reproduce
this right click ability but cannot find any code on this NG for doing
it.

Can any one, (including John) help?. Mr Walkenbach if you are there
perhaps you could direct us to the page in "Power Programming with
VBA" although its not immediately obvious that the code for this
feature is in the book..

(We are running XL 2000, /XP).

Thanks a million

Charles

--

Dave Peterson