Visual Basic - liberar excel de la memoria desde vb6

Buenas,

Abro un archivo excel desde mi programa y se me queda abierto, he estado probando cosas pero no son efectivos, a ver si me podéis ayudar, gracias.
Adjunto el código para que podáis verlo. Gracias de nuevo.


'Nueva instancia de Excel
Set Obj_Excel = CreateObject("Excel.Application")

' Abre el libro de Excel
Obj_Excel.Workbooks.Open FileName:="I:\fichero.xls"

'Hacemos el Excel Visible
Obj_Excel.Visible = True
'Obj_Excel.activewindow.selectedsheets.printpreview

With Obj_Excel
Set ObjHoja = .Sheets(4)
' selecciona la hoja actual con el método Select
ObjHoja.Select
ObjHoja.Visible = True
End With

' Close the workbook WHITHOUT saving.
Obj_Excel.DisplayAlerts = False
Set Obj_Excel = Nothing
Set ObjHoja = Nothing

Se te ha olvidado cerrarlo obj_excel.quit