Est-il possible de sauvegarder et fermer un fichier Excel automatiquement 2 minutes après son ouverture ?

dans le module Thisworkbook

Private sub Workbook_Open()
 Application.OnTime Now + TimeValue("00:02:00"), "Sortie"
 end sub

dans un module standard

sub sortie()
 ThisWorkbook.Close
 end sub