ontime haut nicht hin

Private Sub CommandButton1_Click()
Workbooks.Open "DateiB.xls"
Workbooks("DateiB.xls").Activate
Worksheets(1).Activate
Application.Run ("DateiB.xls!time()")
End Sub
in Datei "B" habe ich im Modul1 folgenden Code stehen:

Private Sub test()
ActiveSheet.Range("A1") = "Ausgabetest"
End Sub
Private Sub time()
Application.OnTime Now + TimeValue("00:00:02"), "test"
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Warum haut das nicht hin ?
Gruss
Stefan Glander