Sub FileRename()
'変数の型を宣言
Dim folder_path As String
Dim j As Integer
folder_path = Cells(5, 2) & "\"
j = 1
Do Until Cells(j + 6, 2) = ""
Name folder_path & Cells(j + 6, 2) As folder_path & Cells(j + 6, 4)
j = j + 1
Loop
End Sub
'変数の型を宣言
Dim folder_path As String
Dim j As Integer
folder_path = Cells(5, 2) & "\"
j = 1
Do Until Cells(j + 6, 2) = ""
Name folder_path & Cells(j + 6, 2) As folder_path & Cells(j + 6, 4)
j = j + 1
Loop
End Sub