Removing warning messages

I use the following code to download Text files containing data into my applications

Sub QueryN(SheetName As String, N)
     Application.DisplayAlerts = False
    On Error Resume Next
   
    Range(SheetName & "_Clear" & N).Clear
    Sheets(SheetName).Select
        Range(SheetName & "_Table" & N).QueryTable.Refresh BackgroundQuery:=False
    
   Application.DisplayAlerts = True
End Sub

When this is run it works except that a window pops up asking which file to down load. This is not necessary as the Query already contains the identity of the file to be used.
It is also a problem to the user who will not in general know the name of the file.
Can this window be suppressed? Application.DisplayAlerts does not help.
John

As a follow up to my mornings post. As well as the text files called by the procedure above I connect to some data by an ODBC link set up in MSQuery.
There is a small modification to the above code.

Range(SheetName & "_Table" & N).ListTable.QueryTable.Refresh BackgroundQuery:=False

This works without asking for the identity of the file to be downloaded.

Has anyone some ideas?