Lukker ikke Programmet

Hey

Denne makro køres fra PowerPoint  og henter via Excel 10.0 Library referencen en chart fra en Excel workbook og kræver en path og nogle højdeangivelser. Det hele virker fint, bortset fra at "ObjXls.Workbooks(Path).Close SaveChanges:=False" ikke lukker Excel.exe efter sig. Kører man makroen flere gange vil der være lige så mange åbne Excel.exe i windows task manager. Pisseirriterende.

Sub UpdateChart(strUpdate, Path, SheetUpd, ShpHeight, ShpWidth, ShpTop, ShpLeft)
Dim ObjXls As Excel.Application
Dim rngFormula As Range
Set ObjXls = New Excel.Application

ObjXls.Workbooks.Open Path, UpdateLinks:=3
Sheets(SheetUpd).Select
Sheets(SheetUpd).Shapes(strUpdate).Select
'Sheets(SheetUpd).Shapes(strUpdate).CopyPicture xlScreen

  On Error Resume Next
Err.Clear
Charts(strUpdate).CopyPicture xlPrinter, xlPicture, xlScreen
  If Err.Number <> 0 Then
  ActiveChart.CopyPicture xlPrinter, xlPicture, xlScreen
  End If

ObjXls.Workbooks(Path).Close SaveChanges:=False
 
ActiveWindow.View.Paste
With ActiveWindow.Selection.ShapeRange
  .Height = ShpHeight
  .Width = ShpWidth
  .Top = ShpTop
  .Left = ShpLeft
  End With
End Sub