Galera,

Mais uma dúvida.

Estou usando uma MsgBox com a função de fechamento automático em X Segundos, mas não sei por qual motivo em determinados momentos ela não está funcionando.

Abaixo o código que estou utilizando

Private Sub AutoFechaMsgBox(Mensagem As String, Titulo As String, Segundos As Integer)
Set oSHL = CreateObject("WScript.Shell")
    oSHL.PopUp Mensagem, Segundos, Titulo, vbOKOnly + vbInformation
End Sub
Sub ATUALIZAR1()

  AutoFechaMsgBox "Aguarde, o processo de atualização está sendo iniciado.", "GeoVisão - NET BH", 2
  Sheets("Updating").Select
  Call Desbloqueio_atualizar
  ActiveWorkbook.RefreshAll
  Calculate
  Call Bloqueio_atualizar
  AutoFechaMsgBox "Dados atualizados com sucesso!!!", "GeoVisão - NET BH", 1
  AutoFechaMsgBox "Você será redirecionado para a página inicial em 3 segundos. Aguarde...", "GeoVisão - NET BH", 2
  Sheets("FRONT").Select
End Sub

Desde já agradeço a ajuda!!!