PowerpointMakro aus Excel aufrufen

Function nicht definiert sei. Darüber verzweifle ich langsam. Hier mein Code, vielleicht sieht ja jemand sofort den Fehler?
Das Makro heißt "test"

Sub CommandButton1_Click()
Dim pptApp As powerpoint.Application
Dim pptPres As powerpoint.Presentation
Dim pptSlide As powerpoint.Slide
Set pptApp = CreateObject("powerpoint.application") 'New powerpoint.Application
Set pptPres = pptApp.Presentations.Open("M:\EXCELTEST\leerePräsentation.ppt", , , False)
With pptPres.Slides
.InsertFromFile "M:\EXCELTEST\TEST.ppt", 1, 3, 6
End With
With pptApp
.Visible = msoTrue
End With
pptApp.Run "Project.Modul1.test()"
End Sub


Danke im Voraus und Gruß aus Aachen,

Florian