title: Save, Close and Re-Open "ThisWorkbook"
body: <p>I need to Save, Close and Re-Open "ThisWorkbook".
  The code should be something like this:</p>
  
  <pre><code>Sub reopen()
  
  Dim wb As Excel.Workbook
  Set wb = ThisWorkbook
  
  wb.Save
  wb.Close
  wb.Open
  
  End Sub
  </code></pre>
  
  <p>Unfortunately, there is no such command "wb.Open", and once I "wb.Close", the code stops :)</p>
  
  <p>P.S. It should be a part of a bigger one, which gives an error "91" if the workbook isn't saved-closed and reopened...</p>