One more time (I hope)

[salgud]

The code below is supposed to create a toolbar with one tool on it which
runs a macro which is in a separate module (same workbook)

Public Const sCreateTribTR As String = "CreateTribTr"

Sub Autpen()
Call CreateMenubar
With CommandBars(sCreateTribTR)
.Enabled = False
.Visible = False
End With

End Sub

Sub Auto_Close()
Call RemoveMenubar
End Sub

Sub RemoveMenubar()
On Error Resume Next
Application.CommandBars(sCreateTribTR).Delete
On Error GoTo 0
End Sub

Sub CreateMenubar()

Call RemoveMenubar

With Application.CommandBars.Add
.Name = sCreateTribTR
.Left = 200
.Top = 200
.Protection = msoBarNoProtection
.Visible = True
.Position = msoBarTop
.Left = CommandBars(sCreateTribTR).Left +
CommandBars(sCreateTribTR).Width
.RowIndex = CommandBars(sCreateTribTR).RowIndex

With CommandBars(sCreateTribTR).Controls.Add(Type:=msoControlButton)
.OnAction = "'" & ThisWorkbook.Name & "'!" & "CreateTR"
.Caption = "CreateTR"
.Style = msoButtonCaption
.TooltipText = "Create TR"
End With

With CommandBars(sCreateTribTR).Controls.Add(Type:=msoControlButton, ID _
:=2950, Before:=2)
End With
End With
End Sub

Public Sub CreateTR()
Call CreateTribalSheet
End Sub

It compiles and runs, just nothing happnes. No toolbar. Anybody see what
I'm missing?

 

[salgud]

The code below is supposed to create a toolbar with one tool on it which
runs a macro which is in a separate module (same workbook)

Public Const sCreateTribTR As String = "CreateTribTr"

Sub Autpen()
Call CreateMenubar
With CommandBars(sCreateTribTR)
.Enabled = False
.Visible = False
End With

End Sub

Sub Auto_Close()
Call RemoveMenubar
End Sub

Sub RemoveMenubar()
On Error Resume Next
Application.CommandBars(sCreateTribTR).Delete
On Error GoTo 0
End Sub

Sub CreateMenubar()

Call RemoveMenubar

With Application.CommandBars.Add
.Name = sCreateTribTR
.Left = 200
.Top = 200
.Protection = msoBarNoProtection
.Visible = True
.Position = msoBarTop
.Left = CommandBars(sCreateTribTR).Left +
CommandBars(sCreateTribTR).Width
.RowIndex = CommandBars(sCreateTribTR).RowIndex

With CommandBars(sCreateTribTR).Controls.Add(Type:=msoControlButton)
.OnAction = "'" & ThisWorkbook.Name & "'!" & "CreateTR"
.Caption = "CreateTR"
.Style = msoButtonCaption
.TooltipText = "Create TR"
End With

With CommandBars(sCreateTribTR).Controls.Add(Type:=msoControlButton, ID _
:=2950, Before:=2)
End With
End With
End Sub

Public Sub CreateTR()
Call CreateTribalSheet
End Sub

It compiles and runs, just nothing happnes. No toolbar. Anybody see what
I'm missing?

Thanks, I figured it out!

 

[Jeff]

I will be honest i didn't read your entire post. However, as far a creating
custom menus or tool bars a table driven method is the easiest way to go.
Have a look here

http://spreadsheetpage.com/index.php/site/tip/creating_custom_menus/

 

[salgud]

I will be honest i didn't read your entire post. However, as far a creating
custom menus or tool bars a table driven method is the easiest way to go.
Have a look here

http://spreadsheetpage.com/index.php/site/tip/creating_custom_menus/

Thanks!