Refresh all connections VBA

[eduzs]

Some of my workbooks have a connection that pulls data from a website.
I need to batch open those workbooks and update the connection.
The problem is that the code is not working, I suppose that's because I was unable to be "BackgroundQuery: = False" before reflashall and not wait until update is done.
Need help with this code.
Thanks.

 

[eduzs]

After a extense google search I found something that is working (with some my modifications):

Set oWkb = Activeworkbook
For Each oSheet In oWkb.Worksheets
    For Each oQt In oSheet.QueryTables
       oQt.BackgroundQuery = False
       oQt.Refresh
       DoEvents
    Next oQt
Next oSheet

Thanks