ActiveWorkbook.Connections("Toggl_time_entries").Delete

    Dim ws As Worksheet
    Dim qt As QueryTable
    For Each ws In ThisWorkbook.Worksheets
        For Each qt In ws.QueryTables
            qt.Delete
        Next qt
    Next ws