title: Prevent Screen flickering when opening a second Workbook (same instance)
body: <p><strong>Prefix</strong>: My code opens an external workbook that has a DB inside with some information which should not be visible to the entire organization. I am able to open the external workbook, and retrieve all the data from the <code>PivotTable</code> successfully.</p>
  
  <p><strong>Problem</strong>: When my code runs, the screen flickers for ~ 0.5 seconds to show the other workbook.</p>
  
  <p><strong>Goal</strong>: not to have any flickering on the screen when switching between workbooks.</p>
  
  <p><strong>My Code</strong> (relevant section):</p>
  
  <pre><code>Option Explicit
  
  Public Sub GetBudgetData_fromPivotTable(Budget_ShtName As String, Budget_PvtName As String)
  
  Dim BudgetWB                            As Workbook
  Dim PvtTbl                              As PivotTable
  Dim pvtFld                              As PivotField
  Dim strPvtFld                           As String
  Dim prjName                             As String
  
  ' ****** This is the Section I am trying to prevent from the screen to flicker ******
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  
  ' read budget file parameters
  Set BudgetWB = Workbooks.Open(BudgetFile_Folder &amp; BudgetFile_wbName)
  
  BudgetWB.Windows(1).Visible = False
  OriginalWB.Activate ' &lt;-- this is the original workbook that is calling the routine
  
  Set PvtTbl = BudgetWB.Worksheets(Budget_ShtName).PivotTables(Budget_PvtName)
  
  ' a lot of un-relevant code line
  
  BudgetWB.Close (False)  ' close budget file
  OriginalWB.Activate
  
  ' restore settings
  Application.ScreenUpdating = True
  Application.DisplayAlerts = True
  
  End Sub
  </code></pre>