Hello, sir.  I have a block of code that does not update the Excel file it is supposed to during runtime.  It runs and gives no errors, but the file isn't updated.  However, it runs perfectly when stepped through with F8.  Have you ever ran across this before?  I've attached the code block for your reference.

Public Sub UpdateExcel()

    ' Updates Excel file with relevant data from Access queries

    Dim XLFile As String
    Dim XLFolder As String
    Dim NewXLFile As String
    Dim XLApp As Excel.Application
    Dim WB As Excel.Workbook
    Dim CN As Object
    Dim Qry As Object

    XLFile = "Financial Statements.xlsx"
    XLFolder = CurrentProject.Path & "\"
    XLFile = XLFolder & XLFile
    NewXLFile = InputBox("Enter name of file, being sure to start with date.", "File Name")
    If Nz(NewXLFile, "") = "" Then
        Exit Sub
    End If
    NewXLFile = XLFolder & NewXLFile & ".xlsx"
    If Dir(XLFile) = "" Then
        MsgBox "File " & XLFile & " does not exist!", vbExclamation, "File Not Found"
        Exit Sub
    End If
    If Dir(NewXLFile) <> "" Then
        Kill NewXLFile
    End If
    FileCopy XLFile, NewXLFile
    Set XLApp = New Excel.Application
    Set WB = XLApp.Workbooks.Open(NewXLFile)
    WB.RefreshAll
    WB.Worksheets("Income").Select
    Range("E11").Copy
    Range("F11:J11").PasteSpecial xlPasteFormulas
    Range("E1").Select
    DoEvents
    On Error Resume Next
    For Each CN In WB.Connections
        CN.Delete
    Next CN
    For Each Qry In WB.Connections
        Qry.Delete
    Next Qry
    DoEvents
    With WB
        .Save
        .Close
    End With
    Set XLApp = Nothing
    MsgBox "File updated successfully", vbInformation, "Successful Update"

End Sub