title: VBA Using Outlook to open excel not opening
body: <p>Hi Thanks for your help.</p>
  
  <p>I have the follow code in Outlook 2010 &amp; 2007:</p>
  
  <pre><code>Sub Openexcel()
      Dim xlApp As Object
      Dim sourceWB As Workbook
      Dim sourceSH As Worksheet
      Dim strFile As String
      Set xlApp = CreateObject("Excel.Application")
      With xlApp
          .Visible = True
          .EnableEvents = False
      End With
  
      strFile = "E:\All documents\susan\work\Excel projects\saving files to directory Clean.xls"
  
      Set sourceWB = Workbooks.Open(strFile, , False, , , , , , , True)
      Set sourceSH = sourceWB.Worksheets("Sheet2")
      sourceWB.Activate
  End Sub
  </code></pre>
  
  <p>This code works the first time I use it after opening outlook but if I then close the excel file I can not use it again. I need to reopen this work book about 3 times</p>
  
  <p>The Question at<br>
  <a href="https://stackoverflow.com/questions/5094624/outlook-vba-open-excel">Outlook VBA open excel</a>
  seen to have the same problem but I did not understand the answer.</p>
  
  <p>"I got it figured out. I was opening a different workbook and then closing it before I try to open the second one and that was interfering with it. To fix this I kept the excel app open and <strong><em>reset the workbook object</em></strong> to the new workbook i wanted"</p>
  
  <p>If some someone could help with the additional code that would be great. </p>