Como Esperar a que se termine de Ejecutar un proceso, Macro Excel

Nuevamente pidiendo apoyo de esta gran comunidad

Bueno tengo una macro la cual al abrir un libro de Excel lo primero que pretendo que haga es actualizar todas las Tablas Dinámicas que contiene, y después la idea es que fuera a actualizar nada mas un par de ellas las cuales dependen de otras que ya deberían estar actualizadas en el primer paso, El problema es que la macro hace todo al revés ya que primero actualiza individualmente las tablas que le pido y después hace la actualización global y así no me sirve, dejo la macro, ayuda por favor...

Sub Macro1()
'Primero
ActiveWorkbook. RefreshAll

'Segundo (Esperar a que termine de actualizar todas las tablas)
Sheets("Reporte Principal").Select
ActiveSheet.PivotTables("Tabla dinámica1").PivotCache.Refresh
Sheets("Conteo").Visible = True
Sheets("Conteo").Select
ActiveSheet.PivotTables("Tabla dinámica1").PivotCache.Refresh
ActiveWindow.SelectedSheets.Visible = False
Sheets("Ventas").Visible = True
Sheets("Ventas").Select
ActiveSheet.PivotTables("Tabla dinámica1").PivotCache.Refresh
ActiveWindow.SelectedSheets.Visible = False
Sheets("Detalle").Select
ActiveSheet.PivotTables("Tabla dinámica1").PivotCache.Refresh
Sheets("Vendedores").Select
ActiveSheet.PivotTables("Tabla dinámica2").PivotCache.Refresh
Sheets("Reporte Principal").Select
ActiveSheet.PivotTables("Tabla dinámica1").PivotCache.Refresh
Range("A2").Select
End Sub

0

Añade tu respuesta

Haz clic para o