Visual Basic - Cerrar Libro Y Excel

Ayuda se abre el libro pero no se cierra ¿saben porque o como me recomiendan hacerlo?

Sub OpenFile()
Set ApExcel = CreateObject("Excel.application")
On Error Resume Next
Set objWB = ApExcel.Workbooks.Open(App.Path & "Programacion Impresion.xls")
On Error Resume Next
ApExcel.Visible = True
End Sub

Sub Close_File()
'On Error Resume Next
ApExcel.Workbooks.Close False
Set objWB = Nothing
Set ApExcel = Nothing
ApExcel.EnableEvents = False
Set ApExcel = Nothing
End Sub

SAludos Y Gracias.

Una vez lei en este foro tu pregunta, y se cerraba con la función quit del objeto application.

Gracias por contestar .Saludos