Hallo,
zum Test auf 20 Sekunden eingestellt.
In diese Abeitsmappe:
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:20"), "Ende"
End Sub
In ein Modul:
Sub Ende()
Application.Quit
ThisWorkbook.Close Savechanges:=False
End Sub
Gruß
fedjo