Opret "Værktøjslinie"

Public Sub auto_open()


    Dim minlinje As CommandBar
    Dim minmenu As Object
    Dim mitelement As Object
    Set currmenubar = CommandBars.ActiveMenuBar


    Set minmenu = currmenubar.Controls.Add(Type:=msoControlPopup, _
        Temporary:=True, before:=9) 'before:=10 er lige før Hjælp!
    minmenu.Caption = "&Bogbordet"

    Set mitelement = minmenu.Controls.Add(Type:=msoControlButton, ID:=1)
    mitelement.Caption = "&Optællingsliste"
    mitelement.Style = msoButtonCaption
    mitelement.OnAction = "Optællingsliste"
   
    Set mitelement = minmenu.Controls.Add(Type:=msoControlButton, ID:=1)
    mitelement.Caption = "&Find evt. fejl"
    mitelement.Style = msoButtonCaption
    mitelement.OnAction = "Fejlfinder"

    Set mitelement = minmenu.Controls.Add(Type:=msoControlButton, ID:=1)
    mitelement.Caption = "&Afstem optæl liste"
    mitelement.Style = msoButtonCaption
    mitelement.OnAction = "AfstemOptælListe"
    CommandBars("Worksheet Menu Bar").Visible = True
   
    Set mitelement = minmenu.Controls.Add(Type:=msoControlButton, ID:=1)
    mitelement.Caption = "&Kopier til arkiv"
    mitelement.Style = msoButtonCaption
    mitelement.OnAction = "kopiertilarkiv.KopierTilArkiv"
    CommandBars("Worksheet Menu Bar").Visible = True
   
        Set mitelement = minmenu.Controls.Add(Type:=msoControlButton, ID:=1)
    mitelement.Caption = "O&verfør data fra optæl. listen"
    mitelement.Style = msoButtonCaption
    mitelement.OnAction = "Optælslut.OverførOptælData"
    CommandBars("Worksheet Menu Bar").Visible = True
End Sub

Du får den lige rå og usødet fra mit ark.
Husk at lægge den i Public Sub auto_open() ellers åbner den ikke automatisk.

HOV... Denne menu er faktisk lidt federe...Public Sub auto_open()


Dim MenuItem As CommandBarControl
Dim Submenuitem As CommandBarButton
    Dim minlinje As CommandBar
    Dim minmenu As Object
    Dim mitelement As Object
    Set currmenubar = CommandBars.ActiveMenuBar


    Set minmenu = currmenubar.Controls.Add(Type:=msoControlPopup, _
        Temporary:=True, before:=9)
    minmenu.Caption = "&Bogbordet"

    Set mitelement = minmenu.Controls.Add(Type:=msoControlButton, ID:=1)
        With mitelement
        .Caption = "&Optællingsliste"
        .FaceId = 593
        .OnAction = "Optællingsliste"
    End With
   
      Set MenuItem = minmenu.Controls.Add(Type:=msoControlPopup, ID:=1)
    With MenuItem
        .Caption = "Optælling slut"
        .BeginGroup = True
    End With
   
'  FIRST SUBMENU ITEM
    Set Submenuitem = MenuItem.Controls.Add _
      (Type:=msoControlButton)
    With Submenuitem
        .Caption = "&Kopier til arkiv"
        .FaceId = 233
        .OnAction = "kopiertilarkiv.KopierTilArkiv"
    End With
   
'  SECOND SUBMENU ITEM
    Set Submenuitem = MenuItem.Controls.Add(Type:=msoControlButton, ID:=1)
    With Submenuitem
        .Caption = "O&verfør data fra optæl. listen"
        .FaceId = 592
        .OnAction = "Optælslut.OverførOptælData"
    End With

   
    Set mitelement = minmenu.Controls.Add(Type:=msoControlButton, ID:=1)
    mitelement.Caption = "&Find evt. fejl"
    mitelement.FaceId = 107
    mitelement.OnAction = "Fejlfinder"

    Set mitelement = minmenu.Controls.Add(Type:=msoControlButton, ID:=1)
    mitelement.Caption = "&Afstem optæl liste"
    mitelement.FaceId = 2152
    mitelement.OnAction = "AfstemOptælListe"
    CommandBars("Worksheet Menu Bar").Visible = True

   
            Set mitelement = minmenu.Controls.Add(Type:=msoControlButton, ID:=1)
    mitelement.Caption = "Placerings fejl fjerner"
    mitelement.FaceId = 1107
    mitelement.OnAction = "startform"
    CommandBars("Worksheet Menu Bar").Visible = True

End Sub

Dit næste Spørgsmål: Hvor finder jeg en liste over "faceid"??
Her: http://www.mvps.org/skp/faceid.htm

Håber du kan bruge det ovenstående...

Tusind tak for hjælpen, det er helt perfekt!!

Selv tak - det er godt at høre det virker. (Husk at klikke på accepter svar!)