In addition to Tom's remark:

I see a hard return but no line continuation where you add the Button?

Use:

Set btnRun = barTemp.Controls.Add _
(Type:=msoControlButton, temporary:=True)


Also:

Dim btnRun as Office.CommandBarButton

the CommandBarControl is more generic.. if u use CommandBarButton Object
you'll see more properties to work with.


keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Tom Ogilvy" wrote:

in the workbook_open event you should prefix with application


Private Sub Workbook_Open()
Dim barTemp As CommandBar
Dim btnRun As CommandBarControl

Set barTemp = Application.CommandBars.Add(Name:="Temp", _
Position:=msoBarFloating, MenuBar:=False, temporary:=True)

Set btnRun = barTemp.Controls.Add
(Type:=msoControlButton, temporary:=True)

End Sub

This usually clears up this type of problem.