Irgendwie scheint mir, Du machst das ganze unnötig kompliziert. Es muß doch ein Modul geben, in dem Deine Prozeduren stehen. Nehmen wir mal an, das ist "Modul1" mit den Prozeduren "Import", "Export" und "AuswertungDrucken". Dann sähe das Ganze etwa so aus:

Private Sub Workbook_Open()
On Error Resume Next
With Application.CommandBars("Worksheet Menu Bar")
     .Controls.Add Type:=msoControlPopup, before:=.Controls.Count - 1
     With .Controls(.Controls.Count - 2)
          .Caption = "&Auswertung"
          .Controls.Add Type:=msoControlButton, before:=1
          .Controls.Add Type:=msoControlButton, before:=2
          .Controls.Add Type:=msoControlButton, before:=3
            With .Controls(1)
                .Caption = "&Fehleranalyse"
                .OnAction = "Import"
                .BeginGroup = False
                .FaceId = 1096
            End With
            With .Controls(2)
                .Caption = "&Auswertungsdatei erstellen"
                .OnAction = "Export"
                .BeginGroup = True
                .FaceId = 159
            End With
            With .Controls(3)
                 .BeginGroup = True
                .FaceId = 160
                .Caption = "Auswertungsdatei(en) &Drucken"
                .OnAction = "AuswertungDrucken"
            End With
End With
End Sub


Private Sub Workbook_Activate()
Application.CommandBars("Worksheet Menu Bar").Controls("&Auswertung").Visible = True
End Sub


Private Sub Workbook_Deactivate()
Application.CommandBars("Worksheet Menu Bar").Controls("&Auswertung").Visible = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Controls("&Auswertung").Delete
End Sub