QueryTable Leaking Memory despite deletion of QueryTable

Hi. I think the problem to this question involves my use of QueryTables but I may also suspect it has to do with me establishing connections with another computer. For a project at work, I have a set of files (1185 files to be exact) that exist on another computer called "projectpc3" under a directory

"\\projectpc3\Data4_G_Share\X-DIR\FILE_15\DAT-X"

I have an excel workbook that contains two sheets.
The sheet called "FILES" contains the names of the 1185 files in Cells(7,2) through Cells(1191,2)
My program creates a variable "k" that loops through each filename in "FILES", establishes a connection using a QueryTable taking the information from each file and pasting it into the sheet entitled "X".

(1) I create two variables
(2) I loop through all the files rerunning code snippets (3) (4) and (5)
(3) establishes the connection to file "k" using a QueryTable and fills sheet("X") with the data from file "k"
(4) deletes the QueryTable in step (3) (I think)
(5) deletes the connection memory to file "k" on the other computer (I think)

Obviously there is a lot more to it than this as I have additonal code to utilize the data in Sheet("X") for each iteration, but I have taken it out for simplicity.

As it stands, despite steps (4) and (5), the program is leaking memory from my computer and will eventually
give me an "OUT OF MEMORY" error. I can see the memory draining incrementally by viewing the Task Manager.

Where is the memory leak coming from and how can I fix it? Any help would be greatly appreciated. Thank you.


Sub MemoryTest()

'(1)
Dim qt As QueryTable
Dim WSh As Worksheet

Sheets("X").Select

'(2)
For k = 1 To 1185

Cells.Select
Selection.Delete Shift:=xlUp

(3)
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & "\\projectpc3\Data4_G_Share\Share\X-DIR\FILE_15\DAT-X" & "\" & Sheets("FILES").Cells(k + 6, 2).Value _
, Destination:=Range("$A$1"))
.Name = Sheets("FILES").Cells(k + 6, 2)
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Range("A1").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True

'(4)
For Each WSh In ThisWorkbook.Worksheets
For Each qt In WSh.QueryTables
qt.ResultRange.ClearContents
qt.Delete
Next qt
Next WSh

'(5)
Do Until ActiveWorkbook.Connections.count = 0
ActiveWorkbook.Connections(ActiveWorkbook.Connections.count).Delete
Loop

Next k

End Sub

I created another thread that fixes this violation Please Delete this thread.