[VBA Excel97] AutoOpen, Application.OnTime

[met]

Hallo,
ich möchte, daß wenn ich eine Excel-Tabelle öffne jede Sekunde die Felder aktualisiert werden.

Ich habe die Funktion:

Sub AutoOpen()
    aRun = True
    Application.Calculate
    Application.OnTime Now + TimeSerial(0, 0, 1), "Aktualisieren"
End Sub

und die Funktion:

Public Sub Aktualisieren()
    If aRun = False Then Exit Sub
    Application.Calculate
    Application.OnTime Now + TimeSerial(0, 0, 1), "Aktualisieren"
End Sub

Warum wird AutoOpen nicht automatisch ausgeführt?

siehe Anhang:

 

[Retlaw]

Klick im VBA-Editor mal in den ComboBoxen über dem Code in der ersten auf "Workbook", in der zweiten auf "Open", dann steht da:

Private Sub Workbook_Open()
    'Was hier rein kommt wird beim Öffnen der Datei ausgeführt
End Sub