Hvordan lukker jeg igen

Jeg har den her kode, når den har udført handlingerne, kan jeg så få den til at lukke excel igen

Dim objexcel As object
Dim lngReturnValue As Long
   
    'Initier Excel
    On Error Resume Next
    Set objexcel = GetObject(, "Excel.Application")
    Err.Clear
    On Error GoTo 0
    If objexcel Is Nothing Then
        Set objexcel = GetObject("", "Excel.Application")
    End If
    objexcel.Visible = True
    AppActivate "Microsoft Excel"
   
    'Fyld værdier i A1 til A4
    objexcel.Workbooks.Add
    objexcel.Range("A1").Select
    objexcel.ActiveCell.FormulaR1C1 = "5"
    objexcel.Range("A2").Select
    objexcel.ActiveCell.FormulaR1C1 = "6"
    objexcel.Range("A3").Select
    objexcel.ActiveCell.FormulaR1C1 = "7"
    objexcel.Range("A4").Select
    objexcel.ActiveCell.FormulaR1C1 = "8"
    objexcel.Range("A5").Select
    objexcel.ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"

    'Aflæs værdien i A5
    lngReturnValue = objexcel.Range("A5").Value
   
    MsgBox "Return Value = " & lngReturnValue