Y'a t-il une erreur dans se programme ?

Bonjour,

Nous avons récupéré ce programme :

Sub AutoOpen()
    WordSaver
End Sub

Sub WordSaver()
      Application.OnTime When:=Now + _
      TimeValue("00:00:10"), _
      Name:="Saver"
End Sub
Sub Saver()
    ActiveDocument.Save
    WordSaver
End Sub

Mais il y a une erreur. Lorsqu'on exécute le Saver ils disent qu'il y a une erreur de syntaxe concernant la ligne : Sub Saver (). je ne sais pas pourquoi...
Nous voulons en fait une macro qui enregistre automatique le fichier word ouvert tout les X secondes....

merci d'avance pour vos réponses