I love your MVP website. Thank you Mr. Pearson.

"Chip Pearson" wrote:

Try some code similar to the following:


Sub AAA()
Dim CBar As Office.CommandBar
Dim C1 As Office.CommandBarButton
Dim C2 As Office.CommandBarButton
Dim C3 As Office.CommandBarButton

On Error Resume Next
Application.CommandBars("MyName").Delete
On Error GoTo 0

Set CBar = Application.CommandBars.Add( _
Name:="MyName", temporary:=True)
Set C1 = CBar.Controls.Add(Type:=msoControlButton, _
temporary:=True)
With C1
.Caption = "One"
.OnAction = "'" & ThisWorkbook.Name & "!ProcedureOne"
.Style = msoButtonCaption
End With
Set C2 = CBar.Controls.Add(Type:=msoControlButton, _
temporary:=True)
With C2
.Caption = "Two"
.OnAction = "'" & ThisWorkbook.Name & "!ProcedureTwo"
.Style = msoButtonCaption
End With
Set C3 = CBar.Controls.Add(Type:=msoControlButton, _
temporary:=True)
With C3
.Caption = "Three"
.OnAction = "'" & ThisWorkbook.Name & "!ProcedureThree"
.Style = msoButtonCaption
End With
CBar.Visible = True
End Sub


Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)


On Thu, 23 Oct 2008 15:19:01 -0700, Do what I can, but I''m only one
man. om wrote:

I know this is possible and easily findable; don't bother googling it as I do
not wish to take that much time from you guys (for such simple question).
Thanks in advance.