Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call Limpa
End Sub
Sub Salva()
    ActiveWorkbook.Save
    MsgBox ("Autosave")
    Call Tempo
End Sub
 
Sub Tempo()
    vartimer = Format(Now + TimeSerial( 0 , TimeOut,  0 ), "hh:mm:ss")
    If vartimer = "" Then Exit Sub
    Application.OnTime TimeValue(vartimer), "Salva"
End Sub
 
Sub Limpa()
    On Error Resume Next
    Application.OnTime earliesttime:=vartimer, _
    procedure:="Salva", schedule:=False
    On Error GoTo  0 
End Sub
Как сделать чтобы сообщение "Autosave" само убиралось, не дожидаясь нажатия ОК?

Sub PopupDemo()
Dim WshShell As IWshShell
Dim Msg As String
Set WshShell = CreateObject(“Wscript.Shell”)
Msg = “This message will self-destruct in  5  seconds.”
Title = “A friendly reminder”
WshShell.Popup Msg,  5 , Title,  7  + vbInformation
Set WshShell = Nothing
End Sub