追記: 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