追記: 2015年11月22日
Excel のデータコネクション、セルなどにつけた名前を全てく削除するプロシージャコード
''' <summary>
''' エクセルファイルに存在するコネクションを全て削除します。
''' </summary>
Private Sub DeleteConnections()
Do While ActiveWorkbook.Connections.Count > 0
ActiveWorkbook.Connections.Item(ActiveWorkbook.Connections.Count).Delete
Loop
End Sub
''' <summary>
''' エクセルファイルに存在する名前を全て削除します。
''' </summary>
Private Sub DeleteNames()
Do While ActiveWorkbook.Names.Count > 0
ActiveWorkbook.Names.Item(ActiveWorkbook.Names.Count).Delete
Loop
End Sub


