Excel VBA- Mass rename all files in a folder based on Cell A2

[TheHack22]

Hi All,

Below is a example of daily downloaded files(somedays are > 30) which I manually placed in a folder.
The downloaded files names are not useful (Screenshot). I have been "manually renaming" and saving using the below VBA. I do not need to make a copy of these files, just needs to rename them.Cell A2 usually have the correct name.
I would typically open and click on eack file to make it the Activeworkbook, then run the below code.

Was wondering if there is a way to loop through each file and rename them based on cell A2.

Sub FileNameAsCellContent()
Dim FileName As String
Dim Path As String
Application.DisplayAlerts = False
Path = "C:\Users\C-TL\Box\Amp_Page_Views\Data\"

FileName = Application.Trim(Range("A2").Value) & ".xlsx"
ActiveWorkbook.SaveAs Path & FileName, xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub

Imran
Quote Reply
Report Edit

 

[JEC]

It is possible but you can't rename all files to 1 name.

 

[TheHack22]

It is possible but you can't rename all files to 1 name.

@JEC
Thanks for your response. I need to rename each file to reflects its own name, that's contained in Cell A2 in each file.
Each file name would be different. My apologies for the confusion / been too vague.
Imran

 

[JEC]

A better way is to list your specific files in a new file. The new name behind the files and loop through that range. Then rename one by one, if you understand what I mean.