Deleting Connections in a Workbook

Sub DeleteAllWorkbookConnections()
Dim Cn As Connection
For Each Cn In Connections
Cn.Delete
Next
End Sub

This would seem to be very efficient code for deleting all of the connections associated with a query table in a Workbook. I realize that my understanding of doing this is insufficient and that the code I have written is more conceptual.

1) What modifications could I make to have the correct syntax?
2) Does this really delete the connections or are they still there?

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here