Deleting WebQuery Connection after it loads

[tmsmyer]

I'm trying to delete a web query connection after it loads in vba. I have used this code in the past, but suddenly I am getting the error: "Run-time error '5': Invalid procedure call or argument.

Dim lngConn As Long


url1 = Sheets("urls").Range("B1")


Sheets("data").Cells.ClearContents


  Sheets("data").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;" & url1 _
        , Destination:=Range("A1"))
        .Name = _
        "data"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery = False
    End With


With ThisWorkbook
    For lngConn = .Connections.Count To 1 Step -1
        .Connections(lngConn).Delete
    Next lngConn
End With

The line that is highlighted when the error appears is:

        .Connections(lngConn).Delete