Renaming files in infinite number of sub folders

Firstly, I am very new to VBA and have been self teaching myself for the past couple of weeks so forgive me if I'm not using the right terminology or if I don't make sense (and any hints on cleaning up my code are always appreciated ).

I have written a procedure that renames excel files within a folder based on certain words being in the title. It works for the files in the first lot of subfolders but I am trying to work out how to get it to rename all files in all subfolders regardless of the level.

I've seen similar things done using recursive subs but I have been trying to convert some of the sample codes I've found online to fit my situation and am not having much luck.

I'm hoping someone can tell me how to manipulate my code into something like a recursive procedure or anything else that will do what I want.

Here is my code.

Please Login or Register  to view this content.

Thanks in advance

Please Login or Register  to view this content.

Thank you very much for your response mancubus. One comment line in your code made me realise I had no reference to Microsoft Scripting Runtime. Once I added this in I managed to get one of my previous attempts working. Here is the code I ended up using for anyone interested:

Please Login or Register  to view this content.