VBAでExcelのセルの一覧からファイル名の変更が

質問

こんにちは。会社で大量のファイル名を変更していますが、Excelで一覧からを変更できれば能率的なので作っていますが、困っています。下記のものです。
Sub リネーム()
Dim i As Long　
Dim NEWファイル As String　
Dim OLDファイル As String　
Dim パス As String
For i = 1 To Range("B65536").End(xlUp).Row
パス = Cells(2, 1).Value
OLDファイル = パス & Cells(i, 2).Value
NEWファイル = パス & Cells(i, 3).Value
If Dir(OLDファイル) <> "" Then
Name OLDファイル As NEWファイル
End If
Next i
End Sub
※A2にはC:\Documents and Settings\M．Co，\デスクトップ\リネームと入っています。B1には変更前の001.jpg、C1には変更するa-1.jpgとファイル名が入っています。実行してもファイル名は変更されません。エラーもでません。よろしくお願いします。

回答No.1

boxing_day · ベストアンサー

OLDファイル = パス & "\" & Cells(i, 2).Value
NEWファイル = パス & "\" & Cells(i, 3).Value
ではないでしょうか？

お礼

さっそくの回答ありがとうございます。
単純ミスですみません。全く気づきませんでした。
解決しました。（*^_^*）