ExcelのStyleを削除する

ExcelのStyleを削除する」
ネタは沢山ページがあると思いますが
どうせならば一味違うものをということで作ってみました。
 
下ごしらえ。
 以下コードをメモ帳に張り付けて保存する。
 出来上がったテキストファイルの拡張子をtxt→vbsに変更する。
 
使い方。
 Styleを削除したいExcelファイルをドラッグ&ドロップする。
 複数ファイルをまとめてドラッグ&ドロップしてもOK!
 
注意点。
 まともにエラーハンドリングしていないので
 気を付けて使ってください。(笑)
 垂れ流しコードです。構造化は気が向いたらします。
 
使ったよ♪っている奇特な人がいたらコメントくれると嬉しいかな〜◎
 
よろ〜☆
 
'-----------------------------------------------------------------------
Option Explicit
On Error Resume Next

Dim Args, Arg
Set Args = WScript.Arguments

Dim ExcelApp, ExcelBook
Set ExcelApp = CreateObject("Excel.Application")

Dim Builtins, Builtin
Builtins = Array( _
"20% - アクセント 1", "20% - アクセント 2", "20% - アクセント 3", _
"20% - アクセント 4", "20% - アクセント 5", "20% - アクセント 6", _
"40% - アクセント 1", "40% - アクセント 2", "40% - アクセント 3", _
"40% - アクセント 4", "40% - アクセント 5", "40% - アクセント 6", _
"60% - アクセント 1", "60% - アクセント 2", "60% - アクセント 3", _
"60% - アクセント 4", "60% - アクセント 5", "60% - アクセント 6", _
"アクセント 1", "アクセント 2", "アクセント 3", _
"アクセント 4", "アクセント 5", "アクセント 6", _
"タイトル,チェック セル,どちらでもない," & _
"Percent", "メモ", "リンク セル", "悪い", "計算", "警告文", _
"Comma [0]", "Comma", "見出し 1", "見出し 2", "見出し 3", "見出し 4", _
"集計", "出力", "説明文", "Currency [0]", "Currency", "入力", "Normal", "良い")

Dim Style
Dim IsBuiltin
For Each Arg In Args
MsgBox Arg
Set ExcelBook = ExcelApp.Workbooks.Open(Arg)
For Each Style In ExcelBook.Styles
IsBuiltin = False
For Each Builtin In Builtins
If Builtin = Style.Name Then
IsBuiltin = True
Exit For
End If
Next
If IsBuiltin = False Then
Style.Delete
End If
Next
ExcelBook.Close
Next
MsgBox "処理終了"
'-----------------------------------------------------------------------

excel style 削除