ファイルの名前変更を一気にしたい。

• ホルダー内整理時、book名をちまちま変更するの嫌なので、一気に変更。

Sub ファイルの名前変更()
Path = Cells(1, 1) & "\" 'パスの場所

Cells(3, 1).Select ' A３セル以降変更

Do While ActiveCell <> ""

If ActiveCell.Offset(0, 1) <> "" Then

' 名前変更実施
Name Path & ActiveCell As Path & ActiveCell.Offset(0, 1)
End If
ActiveCell.Offset(1, 0).Select
Loop

End Sub

 ＜サンプル＞VBAスタートすると、変更前から変更後に名前変更します。

　↓変更前

　↓結果