Usando a barra de status do Excel

Muitas vezes durante a execução de uma macro, queremos acompanhar o andamento do processo.

Para isso, basta usar o recurso da barra de status do próprio Excel.

Abaixo um exemplo bem simples com um looping preenchendo um conjunto de células.

Ao lado, o resultado.

;-)

Option Explicit
Dim i As Integer

Sub status_bar()
 For i = 1 To 5000
     DoEvents
     Cells(i, 1).Value = "Teste"
     Application.StatusBar = "Preenchendo célula " & i & " de 5.000"
 Next
 Application.StatusBar = False

End Sub