Macro toolbar buton problem

totsubo,

A different technique (and simpler) is to attach a command button to your worksheet for each macro. To do this:
1) Open the View...Toolbars...Control Toolbox
2) Click the Triangle & Ruler icon on the upper left of the popup toolbar. You will now be in design mode.
3) Click on the Command Button icon, the fourth one down on the left
4) Click on your worksheet and hold the mouse button down to draw the command button on your worksheet
5) Double click on the command button to open its VBA code page and create a CommandButton1_Click sub
6) Call an existing macro or paste your code within this sub
7) If you want to change the button properties, click the Properties icon (top right) and then click your button.
8) Exit design mode by clicking the Triangle & Ruler icon once more

Now, when you click the button on your worksheet, it will run your macro.

Brad

The best solution will be creating the toolbar in VB add the code to the Workbook_Open,  then delete or remove it in the Workbooks_Close...

I don't have any codes for toolbars though.. But I found a code that modifies the Menu bar...   it places a new menu with submenus...

-----------------------------------------
Sub Workbook_Open()
Dim cbMenuBar As CommandBar
Dim cbcustom As CommandBarPopup
Dim cbControl As CommandBarControl
Dim cbCustomBar As CommandBar
Dim cbMenuItem As CommandBarButton
Dim intCount As Integer
Dim strMenuInfo(1 To 8, 1 To 2) As String


Application.CommandBars("Worksheet Menu Bar").Reset

Set cbMenuBar = CommandBars("Worksheet Menu Bar")
Set cbcustom = cbMenuBar.Controls.Add(Type:=msoControlPopup, Before:=10)

With cbcustom
    .Tag = "OEE"
    .Caption = "&OEE"
End With

strMenuInfo(1, 1) = "&Weekly"
strMenuInfo(1, 2) = "Getlastweek"

strMenuInfo(2, 1) = "&Daily"
strMenuInfo(2, 2) = "GetDailyYesterDay"

strMenuInfo(3, 1) = "&View TextFile"
strMenuInfo(3, 2) = "showText "

strMenuInfo(4, 1) = "&Update EQPT List"
strMenuInfo(4, 2) = "ShowPlanning"

strMenuInfo(5, 1) = "&Bactrack Weekly"
strMenuInfo(5, 2) = "ShowWeekly"

strMenuInfo(6, 1) = "&Daily Graphs"
strMenuInfo(6, 2) = "ShowDailyGraph"




For intCount = 1 To 6
    Set cbControl = Application.CommandBars.FindControl(Type:= _
        msoControlPopup, Tag:="OEE")
    Set cbCustomBar = cbControl.Control.CommandBar
    Set cbMenuItem = cbCustomBar.Controls.Add(Type:=msoControlButton)
   
    With cbMenuItem
    Select Case intCount
    Case 3, 5, 6
        .BeginGroup = True
    End Select
   
        .Caption = strMenuInfo(intCount, 1)
        .OnAction = strMenuInfo(intCount, 2)
    End With
Next
End Sub
-----------------------------------------

_________________________________
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Reset
End Sub
------------------------------------------------------------


This is just a suggestion though..