macro works on F8 but not auto
Bernie - thanks, but it still worked the same way...step
through is fine, but regular execution same error.
Did this code work for you? Perhaps it is a XP or Excel
2002 bug...
I can just change the type to floating...but I dislike
unresolved problems...
Neil
-----Original Message-----
Neil,
As soon as you delete a control, that throws off your
upper limit on the Do
loop. You need to go in reverse order. I'm not sure why
it works by
stepping through, but I'm sure why it doesn't work in
regular execution:
For Count = CommandBars(1).Controls.Count To 1 Step -1
Set menuitem = CommandBars(1).Controls(Count)
If menuitem.BuiltIn = False Then menuitem.Delete
Next Count
HTH,
Bernie
MS Excel MVP
wrote in message
...
Here's the code...
Sub addtomenu()
Dim dubam As CommandBarControl
Set dubam = CommandBars(1).Controls.Add
(Type:=msoControlPopup)
dubam.Caption = "Return to DUBAM"
With dubam
.OnAction = "deletefrommenu"
End With
End Sub
Sub deletefrommenu()
Dim menuitem As CommandBarControl
Dim count As Integer
For Each menuitem In CommandBars(1).Controls
count = count + 1
Set menuitem = CommandBars(1).Controls(count)
If menuitem.BuiltIn = False Then
menuitem.Delete
End If
Next
Call go
End Sub
-----Original Message-----
Neil,
Post your code.
HTH,
Bernie
MS Excel MVP
"Neil" wrote in
message
...
Macro written to delete an addition to commandbar
(1):
When it is invoked through the .onaction property
that
is
defined when the menu item is added, the delete item
macro fails. The error message is -2147467259
(80004005)
Method 'Delete' of object 'CommandBarPopup' failed.
Strangely though, if I step through the macro
incrementally (F8 F8 F8...) it works fine.
I can't figure this one out.
Thanks for any help!
Neil
.
.
|