Visual Basic - No libera o cierra excel.exe por grafico

Hola amigos,

mi problema es que al cargar nuevos datos a las series de el grafico existente en la hoja de excel, no me cierra el excel.exe en windows, algo se queda pendiente haciendo y no se que es,
espero y me ayuden, pues no puedo sacar reportes consecutivamente, tengo que salirme del sistema y asi se libera el excel, y ya puedo sacar otro reporte.

gracias

este es el codigo que uso,

Dim Dato, Client As String
Dim ApExcel As Excel.Application
Dim Work As Excel.Workbook
Dim Hoja As Excel.Worksheet

Set ApExcel = CreateObject("Excel.Application")
Set Work = ApExcel.Workbooks.Open("C:\AFondos\Reportes\Nuevo rev11.xls")

ApExcel.Visible = True

Hola = ApExcel.ActiveSheet.ChartObjects.Count
ApExcel.ActiveSheet.ChartObjects(Hola).Activate

serie = ApExcel.ActiveChart.SeriesCollection.Count
For i = 1 To serie
If i = 1 Then
ApExcel.ActiveChart.SeriesCollection(i).XValues = ActiveSheet.Range("A7:A" & j - 1 & "")
ApExcel.ActiveChart.SeriesCollection(i).Values = ActiveSheet.Range("B7:B" & j - 1 & "")
ApExcel.ActiveChart.SeriesCollection(i).Name = ActiveSheet.Range("B6")
Else
If i = 2 Then
ApExcel.ActiveChart.SeriesCollection(i).XValues = ActiveSheet.Range("A7:A" & j - 1 & "")
ApExcel.ActiveChart.SeriesCollection(i).Values = ActiveSheet.Range("C7:C" & j - 1 & "")
ApExcel.ActiveChart.SeriesCollection(i).Name = ActiveSheet.Range("C6")
Else
If i = 3 Then
ApExcel.ActiveChart.SeriesCollection(i).XValues = ActiveSheet.Range("A7:A" & j - 1 & "")
ApExcel.ActiveChart.SeriesCollection(i).Values = ActiveSheet.Range("D7:D" & j - 1 & "")
ApExcel.ActiveChart.SeriesCollection(i).Name = ActiveSheet.Range("D6")
End If
End If
End If
Next i

ApExcel.Visible = False
Work.SaveAs
Work.Close

ApExcel.Quit
Set ApExcel = Nothing

solo sugerencias

ApExcel.Quit
Set ApExcel = Nothing

alomejor an alrevez

Set ApExcel = Nothing
ApExcel.Quit

alomejor te falta el nocthing a los otros

set Work = nothing
set hoja = nothing
Set ApExcel = Nothing

solo me alcansa para eso a esta hora es muy tarde chauu

Gracias Pita por contestar,

ya le intente asi y sigue igual, no se que proceso hace que se queda bloqueado.

Alguien mas que sepa de eso o halla experimentado con graficas hechas en el archivo de excel?

saludos