Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, insere uma barra de progessão com porcentagem na barra de Status.


Sub BarraDeProgressaoStatusbar()
Dim R As Integer
Dim MT As Double

For R = 1 To 180

MT = Timer

Do
Loop While Timer - MT < 0.05

Application.StatusBar = "Progresso....: " & R & " de 180: " & _
Format(R / 100, "P e r c e n t e n t u a l") & " --- " & "Comprimento -Saberexcel "
DoEvents

Next R

Application.StatusBar = False

End Sub

Aplicativo Microsoft Excel VBA (SaberExcel)