Makrosu kodları adım adım nasıl ilerletir kasma olmadan?

[blindside]

Selam 16 farklı dosyadan reflesh all ile veri cekiyorum internetten. Tek makroya bağladım bu işlemi .Ama bu aynı anda hepsini devreye sokunca kasma yaratıyor. Makroyu çalıştırdığımda 5 6 dakika kasıyor. Ancak verileri sırayla cekerse hızlanacak sanırım. yani örnek

veri1-1d.xlsm dosyasını çekip bitirdikten sonra
veri2-1d.xlsm in verilerini çekmeye başlasın

Araya nasıl bir kod koymam gerekiyor acaba? Teşekkürler

makro bu

Sub veri()
'
' veri Makro
'

Windows("veri1-1d.xlsm").Activate
ActiveWorkbook.RefreshAll

Windows("veri2-1d.xlsm").Activate
ActiveWorkbook.RefreshAll

Windows("veri3-1d.xlsm").Activate
ActiveWorkbook.RefreshAll

Windows("veri4-1d.xlsm").Activate
ActiveWorkbook.RefreshAll

Windows("veri5-1d.xlsm").Activate
ActiveWorkbook.RefreshAll

Windows("veri6-1d.xlsm").Activate
ActiveWorkbook.RefreshAll

Windows("veri7-1d.xlsm").Activate
ActiveWorkbook.RefreshAll

Windows("veri8-1d.xlsm").Activate
ActiveWorkbook.RefreshAll

Windows("veri9-1d.xlsm").Activate
ActiveWorkbook.RefreshAll

Windows("veri10-1d.xlsm").Activate
ActiveWorkbook.RefreshAll

Windows("veri11-1d.xlsm").Activate
ActiveWorkbook.RefreshAll

Windows("veri12-1d.xlsm").Activate
ActiveWorkbook.RefreshAll

Windows("veri13-1d.xlsm").Activate
ActiveWorkbook.RefreshAll

Windows("veri14-1d.xlsm").Activate
ActiveWorkbook.RefreshAll

Windows("veri15-1d.xlsm").Activate
ActiveWorkbook.RefreshAll

Windows("veri16-1d.xlsm").Activate
ActiveWorkbook.RefreshAll

End Sub

 

[blindside]

yokmu bunun bir çözümü

 

[blindside]

Application.CalculateUntilAsyncQueriesDone
aralara şöyle bir kod ekledim sanki oldu gibi