Barra de progreso para una apariencia profesional

.

Barra de Progreso: se debe insertar la barra de progreso y agregar este procedimiento dentro de ella.

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

For R = 1 To 180
 MT = Timer
 Do
 Loop While Timer – MT < 0.05
 Application.StatusBar = “Progress: ” & R & ” de 180: ” & _
  Format(R / 180, “Percent”) & ” — ” & “Cumplimiento”
 DoEvents
Next R

Application.StatusBar = False
End Sub