Can't Remove Connections and Queries

[nhandal]

Hello,

I am using the following code to remove all connections and queries in a workbook, however, it does not work I still see all the connections and queries in the workbook, any idea why it is not working?

Sub RemoveAllConnectionsAndQueryTables()

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

End Sub

Thanks,

 

[Alex Blakenburg]

Give this a try:

Sub ClearQueriesAndConnections()

    Dim wbCreated As Workbook
    Set wbCreated = ActiveWorkbook

    ' Delete all connections - Ken Puls
    Dim cn As WorkbookConnection

    For Each cn In wbCreated.Connections
        cn.Delete
    Next cn

    ' Delete all Queries
    Dim pq As Object
    Dim q As String

    For Each pq In wbCreated.Queries
        q = pq
        wbCreated.Queries(q).Delete
    Next

End Sub

 

[nhandal]

Perfect, thank you very much.

 

[Alex Blakenburg]

Thanks for letting me know. Glad I could help.