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