---------------------------------------------------------
Sub Change_Filename()
Dim OldName As String, NewName As String
Dim DataFolderName As String
Dim DataFileName As String
Dim ActiveRow As Integer, ActiveColumn As Integer

DataFolderName = Cells(1, 2).Value
ActiveRow = 5
ActiveColumn = 1

Do
OldName = Cells(ActiveRow, ActiveColumn + 1)
NewName = Cells(ActiveRow, ActiveColumn + 3)
If OldName = "" Or OldName = Null Then
Exit Do
Else
Name DataFolderName & OldName As DataFolderName & NewName ' ファイル名を変更します。
Cells(ActiveRow, ActiveColumn + 1) = NewName
ActiveRow = ActiveRow + 1
End If
Loop

End Sub

'---------------------------------------------------------
Nameステートメントを使ってファイル名の変更をします。
Name oldpathname As newpathname
Name ステートメントはファイル名を変更して、必要に応じて他のフォルダにファイルを移動します。Name ステートメントでは、ドライブ間ではファイルを移動しますが、newpathname と oldbathname で指定したドライブ名が同じ場合は、単に既存のフォルダの名前を変更します。ファイルやフォルダを新しく作成することはありません。