'
'ユーザー定義された名前をすべて削除
'
If Msgbox("ドロップされた全てのファイル内の「名前」を削除します。" & vbCrLf & vbCrLf & _
          "よろしいですか？",vbOKCancel,"名前削除") = vbCancel Then WScript.Quit

Dim objBook   'ブックオブジェクト

Set objXls = CreateObject("Excel.Application")  'エクセルオブジェクトを作成
objXls.Visible = True                           '可視

'
'パラメータ（ファイル名）をすべて処理
'
For Each strFile In WScript.Arguments

  Set objBook = objXls.Workbooks.Open(strFile)   'ファイルを開く

  For Each Target In objBook.Names  'すべての「名前」を処理
      Target.Delete                 '  削除
  Next

  objBook.Save          'ブックを上書き保存
  objBook.Close         'ブックを閉じる
  Set objBook = Nothing 'ブックオブジェクトを破棄

Next

objXls.Quit             'エクセルを終了

MsgBox "すべて終了しました。",,"処理完了"