Application.onTime повторно вызывает открытие документа

Private Sub Workbook_BeforeClose(Cancel As Boolean)
     Application.OnTime cancelTime, "checkFile", , False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
     Application.OnTime cancelTime, "checkFile", , False
End Sub

Public cancelTime As Variant
 
Function closeFile()
    Workbooks.Application.DisplayAlerts = False
    Application.OnTime cancelTime, "checkFile", , False
    
    Workbooks("test.xlsm").Save
    Workbooks("test.xlsm").Close
End Function
 
Function checkFile()
    cancelTime = (Now + TimeValue("00:00:05"))
    Application.OnTime cancelTime, "checkFile"
    
    If IsHasFile("C:\Users\vdekameron\Downloads\1.txt") = True Then
        closeFile
    End If
End Function
 
Function IsHasFile(Path As String) As Boolean
    If Dir(Path) = "" Then
        IsHasFile = False
    Else
        IsHasFile = True
    End If
End Function

Sub Refresh()
 
Dim Asс As Object
Dim strMDBPath As String
Dim pwd As String
 
strMDBPath = "ххх.mdb"
pwd = "ххх"
 
Application.DisplayAlerts = False
Set Asс = CreateObject("Access.Application")
With Asс
    .Visible = False
    .OpenCurrentDatabase strMDBPath, False, pwd
    .DoCmd.RunMacro "Ex"
End With
 
Call Send_Mail
End Sub

Sub Send_Mail()
    Dim oOutlApp As Object, objMail As Object
    Dim sBody As String, sAttachment As String
 .......
 
    DoEvents
Application.OnTime TimeValue("07:30:00"), "Refresh"
End Sub