Removing connections

Hi All,

I am writing a macro that collects data from many different http addresses on our intranet. This however leaves me with a lot of connections, that slows excel after a while. How can I delete these connections ? I create the connection as shown below.

With ActiveSheet.QueryTables.Add(Connection:= _
            "URL;http://pdm:8080/lm/Forms/matdb/laminate?laminate=" & TempCertificate, Destination:= _
            Range("$A$2"))
            .Name = "Connection"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlEntirePage
            .WebFormatting = xlWebFormattingNone
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
        End With

I have tried "

ActiveWorkbook.Connections("Connection").Delete

" with no effect.

Hi Amdi,

The forum rules stipulate that if you show code in your post you must do so using CODE tags. Please edit you post, select the code and click on the # button.

Hi Amdi,

No probs.

Try deleting the QueryTable as opposed to the connection