Tilføje menuknap i Excel 2010

Hej!

Jeg har før brugt følgende VBA script til at tilføje en knap på menu linien (i Excel 2007 kommer knappen så ind på menu linien "Tilføjlesesprogrammer"):

Dim ctlGFKKnap As Object

Set ctlGFKKnap = Application.CommandBars("Standard").Controls.Add(Type:=msoControlButton, ID:=2950, Before:=25)
  With ctlGFKKnap
    .FaceId = 2949
    .Tag = "agubsaReceptData"
    .Caption = "Indtast DSC Data for Recepter"
    .DescriptionText = "Indtast data fra DSC kørsler"
    .OnAction = "SubFunction"
    .Style = msoButtonCaption
    .TooltipText = "Indtast data fra DSC kørsler"
  End With


Men... det virker ikke i Excel 2010. Jeg får en fejl i kodelinien "Set ctlGFKKnap = Application.CommandBars..."

Jeg bruger derfor følgende kode i excel 2010:

Dim Cbar As CommandBar
Dim ctrl As CommandBarControl

For Each Cbar In Application.CommandBars
        With Cbar
            If .Type = msoBarTypePopup Then
                On Error Resume Next
                With .Controls.Add(Type:=msoControlButton)
                    .FaceId = 2949
                    .Tag = "agubsaReceptData"
                    .Caption = "Indtast DSC Data for Recepter"
                    .DescriptionText = "Indtast data fra DSC kørsler"
                    .OnAction = "DoItToMe10"
                    .Style = msoButtonCaption
                    .TooltipText = "Indtast data fra DSC kørsler"
                End With
                Exit For
                On Error GoTo 0
            End If
        End With
    Next


2 spørgsmål:

1) er der ikke en lidt mere elegant måde at gøre det på i excel 2010?
2) Hvorfor virker koden "Set ctlGFKKnap = Application.CommandBars..." ikke i excel 2010 ??