Using excel to rename all files within this folder

1. Open Excel.
2. In A1, type in Folder Path.
3. In B1, type in C:\Users\username\Desktop\foldername\.
4. Press ALT + F11.
5. Click Insert > Module.
6. Type in the code.
7. pRESS f5.

Sub Rename_all_files_in_a_folder()

Folder_Name = Range("B1").Value
File_Name = Dir(Folder_Name)

	Do Until File Name = ""

	Name Folder_Name & File_Name As Folder_Name & " - " & File_Nme

	File_Name = Dir

	Loop

End Sub