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 回答日時： 2006/11/11 11:11

OLDファイル = パス & "\" & Cells(i, 2).Value

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

この回答へのお礼

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

お礼日時：2006/11/11 13:04