Makro läuft seit Excel 2007 nicht mehr

Sub Menu_einfügen()
Dim NeuesMenue As CommandBar, Pop1 As CommandBarButton, sh As Worksheet
On Error Resume Next
Application.CommandBars("Tabellen").Delete
On Error GoTo 0
Set NeuesMenue = CommandBars.Add(Name:="Tabellen", temporary:=True)
With NeuesMenue
.Position = msoBarFloating
.Visible = True
End With
For Each sh In ActiveWorkbook.Sheets
Set Pop1 = NeuesMenue.Controls.Add(Type:=msoControlButton)
With Pop1
.Style = msoButtonCaption
.Caption = Left(sh.Name & "                ", 16)
.Tag = sh.Name
.OnAction = "Start"
.BeginGroup = True
End With
Next sh
Set Pop1 = NeuesMenue.Controls.Add(Type:=msoControlButton)
With Pop1
.Style = msoButtonCaption
.Caption = "Auffrischen"
.OnAction = "Menu_einfügen"
.BeginGroup = True
End With
NeuesMenue.Width = 1
End Sub