Barra de Progreso

Primeramente tendrías que poner tu código para ver el posible error que no permite mostrar tu ProgressBar.
[email protected]

Gracias por contestar y por interesarte en ayudarme lo raro es que no hay más código que pueros refresh como puedes ver
Gracias y Saludos
Sub ActualizarBDCartera()
'
' ActualizarBDCartera Macro
'
'
Sheets("BDCartera").Select
Range("B5").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("Ventas y Rentas MAQRO").Select
Range("D8").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("Lineas y Cartera").Select
ActiveWindow.SmallScroll Down:=-9
Range("H10").Select
ActiveSheet.PivotTables("Tabla dinámica2").PivotCache.Refresh
Range("Q10").Select
ActiveSheet.PivotTables("Tabla dinámica1").PivotCache.Refresh
ActiveWindow.SmallScroll Down:=12
Range("H25").Select
ActiveSheet.PivotTables("Tabla dinámica4").PivotCache.Refresh
ActiveSheet.PivotTables("Tabla dinámica3").PivotSelect "Clasificación[All]", _
xlLabelOnly, True
ActiveSheet.PivotTables("Tabla dinámica3").PivotCache.Refresh
Sheets("Ventas y Rentas de Maquinaria").Select
ActiveWindow.SmallScroll Down:=-12
Range("E13").Select
ActiveSheet.PivotTables("Tabla dinámica3").PivotCache.Refresh
Sheets("Lineas y Cartera").Select
ActiveWindow.SmallScroll Down:=-30
Range("E3").Select
End Sub

No veo por ningún lado la instrucción para mostrar el ProgressBar.

Gracias nuevamente por la respuesta... este es el código para la barra entre la instrucción de For y Next al correr la maqro me aparece la progres barr pero no avanza, sino hasta que termina mi maqro
Public Sub Ejemplo()
Dim oProgress As New frm_lcf_ProgressBar
Dim style As Integer
Dim windowCaption As String
Dim endRow As Long
Dim i As Long
style = 2 ' Progress bar style (1 / 2).
windowCaption = "Progreso de la Actualización de las BD " ' Progress bar window caption.
endRow = 100000 ' Max value
' Progress bar initialization
oProgress.Initialize endRow, style, windowCaption
oProgress.Show 0 ' Shows the progress bar window
For i = 0 To endRow - 4 ' Dummy loop for this example
'--
' Aqui es donde meto mi codigo'--
oProgress.Increase ' Increases 1 unit the progress bar
Next
oProgress.Increase 4 ' Increases 4 units the progress bar
Unload oProgress ' Unload progress bar window
End Sub

Utiliza el médoto DoEvents
Aquí es donde meto mi código'--
OProgress. Increase ' Increases 1 unit the progress bar
DoEvents
Next

Gracias Gonzalez pero todavía no me funciona, sigue apareciendo en blanco, después aparece la barra en 0 % y empieza el proceso solo cuando ya termino de ejecutar mi código
Gracias

Mándame el archivo para ver en qué te ayudo.
[email protected]

Gracias, te acabo de enviar el archivo