.OnAction Exvel VBA

[shulinl]

All of a sudden, my personal comandbars cannot be added.
Every thing has been working greatly for the past many years.

Excel 2003

please hel.....p.

Do I need to add a certain reference? I only had problem today.
**********************************************
Sub ToolBar_EasyTools()
Dim myToolbar
Dim myControl
On Error GoTo create
MsgBox CommandBars("myBar")

create:
Set myToolbar = CommandBars.Add(Name:="myBar", Position:=msoBarTop,
Temporary:=False)

On Error Resume Next
Set myControl = CommandBars("myBar").Controls.Add(Type:=msoControlButton)
With myControl
.Caption = "sgdasf"
.Visible = True
.OnAction = "temp1"
.Style = msoButtonCaption
End With

'...............etc

CommandBars("myBar").Visible = True

End Sub

 

[Bob Phillips]

Type this in the immediate nwindow and run it until you get an error

Application.Commandbars("myBar").delete

Then change

Set myToolbar = CommandBars.Add(Name:="myBar", Position:=msoBarTop,
Temporary:=False)

to

On Error Resume Next
Application.Commandbars("myBar").delete
On Error Goto 0

Set myToolbar = CommandBars.Add(Name:="myBar", Position:=msoBarTop,
Temporary:=True)


--

HTH

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

 

[Jackie]

It did not work with Bob's sugestions.

It worked well before this Excel crash. I reinstalled MS Office to no avail.

??