Excel excel função fechar aplicação

[João Paulo Lucas]

Bom dia

 

Tenho o seguinte código, que funciona

 

Private Sub WorkBook_Open()
      Dim Fechar As Date
      Fechar = Now + TimeValue("00:30:00")
      Application.OnTime Fechar, "sair"
    
End Sub

 

 

Como poderei, colocar uma mensagem, no momento em que a aplicação entra no ar, informando que encerra após 30 minutos?

 

Obrigado

[Visitante]

Acrescente a linha em vermelho conforme abaixo.

 

      Dim Fechar As Date
      MsgBox "O EXCEL SERÁ FECHADO EM 30 MINUTOS"