usuwanie kwerend vba

Witam, podczas tworzenia nowych kwerend natrafiłem na problem z usunięciem poprzednich.

Kod:

 Dim qt As QueryTable
For Each qt In ActiveSheet.QueryTables
    If qt.Refreshing Then qt.CancelRefresh
    qt.Delete
Next
ActiveSheet.UsedRange.Clear

Usuwa zawartość arkusza, ale zostają połączenia a nazwy pozostają zajęte , tak jak widać w załączniku. Chciałbym usunąć makrem również one, niestety nagranie makra, w którym zaznaczam te kwerendy i je usuwam nie rejestruje niczego.

Prosiłbym o pomoc z kawałkiem kodu.

Z góry dziękuję za pomoc.

Nie wiem,czy o to tobie chodzi:

    For i = ActiveWorkbook.Connections.Count To 1 Step -1
        ActiveWorkbook.Connections(i).Delete
    Next