kald et makro/modul fra en menu

Hej hvad går der galt med denne ??
Kan ikke få menu punktet til at kalde en makro, hvor´n kalder man den ? - .OnAction
(Makroer ligger i person.xls -ikke i denne workbook)

Set MenuItem = NewMenu.Controls.Add(Type:=msoControlPopup)
        With MenuItem
            .Caption = "Opret maskine"
            .BeginGroup = True
        End With

    Set Submenuitem = MenuItem.Controls.Add(Type:=msoControlButton)
        With Submenuitem
            .Caption = "Tæller kun ind"
            .FaceId = 52
            .OnAction = Person.xls!OpretMaskineOk
        End With

Mvh Lun