Fout bij omzetting naar xlam

[zyzyxy]

Beste,

Ik heb een xlsx-bestand waarin - o.a. - volgende code zonder probleem wordt uitgevoerd:

Private Sub Workbook_Open()

Nief

End Sub


Sub Ussie()

Hoofd.Show

End Sub


Sub Nief()

Set myControl = CommandBars.ActiveMenuBar
Set mnu = myControl.Controls.Add(Type:=msoControlPopup, _
    Temporary:=True)
    
mnu.Caption = "Wbo's"
    
Set ctr1 = mnu.Controls _
    .Add(Type:=msoControlButton)
ctr1.Caption = "Excel_To_Powerpoint"
ctr1.FaceId = 643
ctr1.OnAction = "Ussie"

Set myControl = Nothing
Set mnu = Nothing
Set ctr1 = Nothing

End Sub

Waarbij "Hoofd" dus een userform is.

Ik wil van dit bestand een invoegtoepassing maken, maar als ik dan in Excel op mijn nieuwe menu'tje klik geeft hij volgende foutmelding:

"Fout 13 tijdens uitvoering: Typen komen niet met elkaar overeen"

bij de regel "Hoofd.Show" van de Sub "Ussie".

Wat doe ik verkeerd?

Vriendelijke groet,
Wim Leys