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.

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.

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.

If you google for yourself you don't take any time from "us guys".


Gord Dibben MS Excel MVP

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.