Max,

I don't know your commandbar name, but you can adapt this

With
Application.CommandBars("Standard").Controls.Add(T ype:=msoControlButton,
ID:=182, temporary:=True)
.Caption = "Select Objects"
End With


--

HTH

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


"Max Power" wrote in message
...
Hi all,

I have a custom toolbar that is created programmatically
everytime a worksheet is activated. I want to add to this
toolbar the selectobjects button (the white pointer arrow)
from the standard Drawing Toolbar.

Does anyone know how i can do this, or access the tool?

All help is most appreciated.

Max