title: Waiting for query to finish before continuing
body: <p>I have this in ThisWorkbook.</p>
  
  <pre><code>Private Sub Workbook_Open()
      Workbooks(ThisWorkbook.Name).RefreshAll
  End Sub
  </code></pre>
  
  <p>All of my queries are getting updated.</p>
  
  <p>I want to move some of the information a query gathers to another location. I use various ranges.</p>
  
  <pre><code>Sub Move_data()
      Dim rng1, rng2, rng3 As Range
      Set rng1 = Worksheets("Sheet1").Range("A3:F103")
      rng1.Value = Worksheets("Sheet2").Range("A11:F111").Value
  
      'etc for rng2 and rng3... 
  End Sub
  </code></pre>
  
  <p>The problem is that the VBA starts updating the queries, then moves the "old" data to my new location. I would like to wait until the queries are finished updating, then move the data automatically.</p>
  
  <p>I can set a time-out period, but the time it takes for the query to update is very variable (between 10 sec to 2 minutes). </p>
  
  <p>Also, is there a way to speed up the query-updating. I tried this:</p>
  
  <pre><code>Application.ScreenUpdating = False
  </code></pre>
  
  <p>But the query/tables/graphs are still flashing/updating. I believe this is due to the properties of Power Query, and assume I need to write something else.</p>