Detalhes de vba msgbox splash screen userform fecha apos execucao rotina

Saberexcel o site das macros
Os procedimento do Aplicativo Microsoft Excel VBA, emite uma mensagem splash enquanto um contador é executado, envia a mensagem, após a execução do rotina em dois segundos, fecha a mensagem gerada pelo userform


INSIRA O CÓDIGO ABAIXO NA FOLHA DE CÓDIGO DO USERFORM
Option Explicit
Dim p, s

Private Sub UserForm_Activate()
DoEvents
Call saber '
Label1.Caption = "Trabalho Terminado..................."

Label1.ForeColor = vbBlue
Beep
p = 2: s = Timer: Do While Timer < s + p: DoEvents: Loop

Unload UserForm1
End Sub


EM UM MÓDULO COMUM INSIRA O CÓDIGO ABAIXO
Essa macro vai inseir um contador enquanto o splashcreen (userform) exibe determinada mensagem, e fecha após dois segundos
do termino da execução da rotina.

Sub saber()
Dim Cell As Range

[A1] = 1
Do Until [A1] > 5000
For Each Cell In Range("A1")
Cell.Value = Cell.Value + 1
Next Cell
Loop

[A1].Select
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - Saberexcel