大変お世話になっております。PC/エクスプローラーについてのご質問となります。データを管理する際、フォルダを使用し、それぞれに名称がございますが現在のフォルダ名称を変更したく思います。対象となるフォルダ数が多く、時間がかかりますが、1つずつ『名前の変更』を行おうと考えております。※変更したい名称は、それぞれバラバラとなっており、変更内容に統一性はございません。昨日別の質問テンプレートにて、ご相談をさせて頂き、jmseさまより、下記のコードをご教示頂き、少量のフォルダにて確認を行ったところ、正常に変更されること確認致しました。本日600個ほどのフォルダを対象に上記コードにてマクロ処理を実施しましたところ、下記の表示がされ、処理STOPとなってしまいました。※添付資料参照『実行時エラー 5 プロシージャの呼び出し、または引数が不正です。』Sub test()Dim FSO As ObjectDim r As LongDim ck1 As Boolean, ck2 As BooleanDim msg1 As String, msg2 As StringSet FSO = CreateObject(\u0026quot;Scripting.FileSystemObject\u0026quot;)For r = 2 To Cells(Rows.Count, 1).End(xlUp).Rowck1 = Falseck2 = FalseIf Dir(Cells(r, 1).Value, vbDirectory) = \u0026quot;\u0026quot; Thenmsg1 = msg1 \u0026amp; Cells(r, 1).Value \u0026amp; vbCrLfck1 = TrueEnd IfIf Dir(Left(Cells(r, 1).Value, InStrRev(Cells(r, 1).Value, \u0026quot;\\\u0026quot;)) \u0026amp; Cells(r, 2).Value, vbDirectory) \u0026lt;\u0026gt; \u0026quot;\u0026quot; Thenmsg2 = msg2 \u0026amp; Cells(r, 1).Value \u0026amp; vbCrLfck2 = TrueEnd IfIf ck1 = False And ck2 = False ThenFSO.GetFolder(Cells(r, 1).Value).Name = Cells(r, 2).ValueEnd IfNext rSet FSO = NothingIf msg1 \u0026lt;\u0026gt; \u0026quot;\u0026quot; ThenMsgBox \u0026quot;下記フォルダは存在していません\u0026quot; \u0026amp; vbCrLf \u0026amp; msg1End IfIf msg2 \u0026lt;\u0026gt; \u0026quot;\u0026quot; ThenMsgBox \u0026quot;下記フォルダは存在しているので変更名に使えません\u0026quot; \u0026amp; vbCrLf \u0026amp; msg2End IfEnd Sub対応方法をご教示頂けますと幸いでございます。大変申し訳ございません。よろしくお願い致します。