Barra de progreso en VBA para macros de excel

Ejemplo de barra de progreso para las macros que diseñemos con VBA en excel. El siguiente ejemplo ha sido probado con Excel 2010.

Barra de progreso en la barra de estado de Excel

Código:

' Ejemplo de barra de progreso en la barra de estado de excel
Sub Test_Barra_Progreso()
    For x = 1 To 10
        Application.Wait (Now + TimeValue("0:00:01"))
        'Barra de estado para mostrar el progreso
        Application.StatusBar = "Progress: " & x & " of 10: " & Format(x / 10, "0%")

        'Mismo ejemplo pero para un número máximo "NumRows" de iteraciones de un bucle
        'Application.StatusBar = "Progress: " & x & " of " & NumRows & ": " & Format(x / NumRows, "0%")
    Next
End Sub