Dim Conn As WorkbookConnection

For Each Conn In ThisWorkbook.Connections
     If Conn.Name <> “Connection1” And Conn.Name <> “Connection2” Then
          Conn.Delete
     End If
Next Conn