VBA Macros to Rename Sub Folder with ID

Hello Excel Experts,

I have a requirement to rename the Sub folder with the ID No.

For e.g.

I have a Folder Name - Corporate

Into Corporate Folder there are multiple folders. For e.g. :

790 Name of Employee
791 Name of Employee
795 Name of Employee
805 Name of Employee

And into each folders there are 3 folders i.e.

INCOMING
OUTGOING
RECEIVING

My requirement is :

Before every folder name, the ID should appear of that particular folder / renamed as below :

790 INCOMING
790 OUTGOING
790 RECEIVING

Similarly,

The folders into "791 Name of Employee" should be renamed to :

791 INCOMING
791 OUTGOING
791 RECEIVING

There are hundreds of folder which I need to rename as described above, so looking for a VBA Macro.

Thanks for your help !

Hi,

Thanks! The above VBA code worked for me.

But I didn't mentioned one more requirement in my first thread.

As in the code provided, you mentioned to make changes in the folder path as necessary. This code gave me an output to rename the folders into Corporate Folder.

But there are still 5 more folders. Say for e.g. Folder 2, Folder 3, Folder 4, Folder 5 and Folder 6.

So once the folder names are changed into Corporate Folder, then there should be a loop to go to Folder 2 and rename all the 3 folders , then Folder 3, 4, 5 and 6.

Yes. I did changed the folder location but that updated for Corporate folder (INCOMING, OUTGOING, RECEIVING were renamed)

There are still 5 other folders just like Corporate, into which we have INCOMING, OUTGOING, RECEIVING folders.

Say for e.g. I still have Folder 2, Folder 3, Folder 4, Folder 5 and Folder 6.

So once the folders into Corporate is renamed, macro should go to Folder 2, rename the INCOMING, OUTGOING, RECEIVING folders and then go to Folder 3 rename the INCOMING, OUTGOING, RECEIVING folders. Then Folder 4, 5 and 6 (or till the last folder).

Hi,

Thanks! This worked for me.