[Excel] Chiudere un foglio in automatico

[ibernet]

ho modificato il codice proposto sopra così:

Private Sub Countdown()
   Sheets(1).[c2] = TimeValue("00:10:00")
   Visualizza
End Sub
Private Sub Visualizza()
Dim TempoRimanente As Date
   TempoRimanente = ActiveSheet.Range("C2")
   Sheets(1).[c2] = TempoRimanente - TimeValue("00:00:01")
   Application.OnTime Now + TimeValue("00:00:01"), "Visualizza"
End Sub
Private Sub Chiudi()
   Application.DisplayAlerts = False
   ThisWorkbook.Save
   Application.Quit
End Sub

così funziona