Save and Close workbook at a certain time

[Teleporpoise]

Hi Mr. Excel Friends,

I want to have my workbook save and close certain times in the day. I have tried inputting this code in the "This Workbook" object:

Sub Close_Workbook()


    Dim Wkb As Workbook
    If Time() = Time.Value("13:30:00") Then
        ThisWorkbook.Close SaveChanges:=True
    End If
    
End Sub

But it isn't working. Can you help me?

Thanks,

 

[Logit]

.
Here is one method :

Paste this macro in the ThisWorkbook module :

Option Explicit


Private Sub Workbook_Open()
    Call ScheduleClose
End Sub

Paste this in a Regular module :

Sub ScheduleClose()
    Application.OnTime Now + TimeSerial(13, 30, 0), "Kamikaze"
End Sub


Sub Kamikaze()
   
    Application.DisplayAlerts = False
    ThisWorkbook.Saved = True
    Application.Quit
    
End Sub