Timer på VBA kode

Læg denne kode i projektmappens kodemodul "ThisWorkbook":

Private Sub Workbook_Open()
    Application.OnTime "22:00:00", "sluk"
End Sub

I et almindeligt modul, skal du så have:

Sub sluk()
    ActiveWorkbook.Saved = True
    Application.Quit
End Sub

Den virker fremragende :-)

Velbekomme :-)