Taking out the quit part does not work either - which I assume is what you were aiming at for the efficiency as when we get back to

 Set ApXL = CreateObject("Excel.Application")

With ApXL
.Application.Visible = False
.UserControl = False
.Workbooks.Open strPath & strBrokerCode & " - FullIncomeRpt.xls"
it opens up another version anyway.

Maybe I am over simplifying this but if the same code works perfectly on another machine albeit different operating system and further to complete the loop I have now tested this on a 32 bit version of XP and again works fine.
  • Win 7 64 bit Perfect
  • XP 32 bit Perfect
  • XP 64 bit problems as outlined.

I spent some time googling and could not find anything other than using a TASKKILL command and then pausing for 20 seconds until clear given on a bad month we would have 400 files which adds hours on to the process.

Thanks for looking