Visual Basic - Por favor necesito cerrar Excel

Por favor tengo este codigo y no consigo que se cierre Excel precisndiendo del menu de Guardar:¿como puedo hacerlo por favor
Dim ApExcel As Variant

Set ApExcel = CreateObject("Excel.application")

ApExcel.Visible = True

ApExcel.Workbooks.Add

ApExcel.ActiveWorkbook.Close
Set ApExcel = Nothing
ApExcel.Quit

Intentalo de esta forma:
Private Sub Command2_Click()
Dim ApExcel As Excel.Application
Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True
ApExcel.Workbooks.Add
ApExcel.ActiveWorkbook.Close
ApExcel.Quit
Set ApExcel = Nothing
End Sub

Estimado Amigo Muchas Gracias por antenderme pero no va . Te muestro un ejemplo exacto de mi pretensión. Un saludo
Dim ApExcel 'As Excel.Application
Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True
ApExcel.Workbooks.Add
ApExcel.cells(1, 4).Formula = "Titulo"
ApExcel.cells(1, 4).Font.Bold = True
ApExcel.cells(1, 4).Font.Size = 18
ApExcel.ActiveWorkbook.Close
ApExcel.Quit
Set ApExcel = Nothing

Amigo no se que estara pasando por que a mi me funciona muy bien tu codigo, te paso unos ejemplos a tu correo para que lo corras en tu PC!!!!