Timer to close excel workbook

[Admin]

Hi,

Or you could even try this, which automatically closes the MsgBox.

Sub close1_me()
    
    Dim objWsh          As Object, msg As String
    Const Delay         As Long = 3 'secs ?
    Const wButtons      As Long = 16 ' Boutons + icon
    
    Set objWsh = CreateObject("WScript.Shell")
    msg = "Please update the file. The file will close within 10 sec."
    
    objWsh.Popup msg, Delay, "ExcelFox", wButtons
    Application.OnTime Now + TimeValue("00:00:10"), "close_Me"

    Set objWsh = Nothing

End Sub