DeleteAllConnectionsFromWorkbookOfType

Public Function DeleteAllConnectionsFromWorkbookOfType( _
    wb As Workbook, _
    xlconnType As XlConnectionType _
)
    Dim _
        wbcn As WorkbookConnection
    For Each wbcn In wb.Connections
        If wbcn.Type = xlconnType Then
            wbcn.Delete
        End If
    Next wbcn
End Function