MI BARRA DE PROGESO 1.0.0

Hola compañeros,

Quiero compartir con todos vosotros la barra de progreso que personalmente utilizo en mis aplicaciones ofimáticas.

Antes de nada, me gustaría apuntar que sólo recomiendo utilizar dicha barra de progreso en aquellos procedimientos en los que se haga un recorrido por todas las celdas de la hoja, tal y como puede comprobarse en el fichero adjunto.

Sin más que añadir, este es el código:

Sub BarraDeProgreso()

Application.ScreenUpdating = False

   ' Limpiamos los errores anteriores (por si acaso)...
   Err.Clear

   ' Tratamos los errores del procedimiento...
   On Error Resume Next

   ' Declaramos las constantes y variables locales...
   Const LONGITUD As Byte = 25
   Dim contador As Byte

   ' Recorremos el bucle...
   For contador = 1 To LONGITUD
      ' Iniciamos la barra de progreso...
      Application.StatusBar = Application.Rept(ChrW(9607), contador) & "  " & _
                              Application.Rept("  ", LONGITUD - contador) & Int(contador * 100 / LONGITUD) & "% completado" & _
                              IIf(contador <> LONGITUD, "...", ".")
      ' E insertamos aquí el procedimiento...
      ' ...
   Next contador

   ' Esperamos unos segundos...
   Call Application.Wait(Now + TimeValue("0:00:03"))

   ' Y finalizamos la barra de progreso...
   Application.StatusBar = False

'End Sub

Espero que os sea de utilidad.

Gracias, y un saludo.