Fala pessoal,

Segue um trecho de codigo pra quem precisar mostrar a evolucao de uma rotina por tempo na barra de status do Excel.
Pode ser util pra informar o usuario sobre o tempo restante/decorrido quando a criacao de uma barra personalizada nao for necessaria.

Sub CountDownStatusBar()
'Neste exemplo, um contador de 10 ate 0 sera mostrado na barra de status do Excel.
Dim intCounter As Integer
Dim bln As Boolean
bln = Application.DisplayStatusBar
Application.DisplayStatusBar = True
For intCounter = 10 To 1 Step -1
Application.StatusBar = intCounter & " Seconds..."
Application.Wait Now + TimeSerial(0, 0, 1)
Next intCounter
Application.StatusBar = False
Application.DisplayStatusBar = bln
End Sub

Abracos,