Добрый день!
Это реализуемо с помощью макроса Sub Rename_Files().
Макрос читает по очереди файлы в папке и переименовывает их.
Файлы должны находится в одной папке.
' макрос переименования файлов в папке F:\PORTFOLIO\4 RENAME SHEETS\MODEL\
' в каждом из которых имя файла находится на первом листе в ячейке B2
' папка для файлов \MODEL может быть другой, но тогда её нужно переименовать в макросе.
Подробности в: