Oi Carlos,
Sim, é possível colocar uma barra de progresso.
Estou te passando um exemplo, vc estuda e depois aplica como preferir:
- crie um form
- coloque um componente progressbar dentro do form e um botão.
- utilize o seguinte codigo para vc testar o progressbar:
Private Sub CommandButton1_Click()
ProgressBar1.Min = 0
ProgressBar1.Max = 3
ProgressBar1.Value = 0
ProgressBar1.Visible = True
ActiveSheet.Range("A1:A3").ClearContents
For k = 1 To 3
Application.Wait Now() + 1 / 60 / 60 / 24
ActiveSheet.Cells(k, 1) = k
ProgressBar1.Value = k
Next k
Application.Wait Now() + 1 / 60 / 60 / 24
ProgressBar1.Visible = False
End Sub
Bom estudo!
Espero ter ajudado!´
[]'s