Macro to rename photos in a main folder's subfolders to subfolder names

Hi, there.

I am looking for some assistance on a macro I'm creating. The goal is to have a cell where a filepath can be typed in for a certain target folder (I may try to update later to where you can browse to the target folder). This target folder has many subfolders, each of which can have varying numbers of photos. The macro needs to go to go through each subfolder with the main target folder and rename all photos within that subfolder to the subfolder name. For example, the subfolders have generic names like "A", "B", "C", etc. The photos in subfolder "A" need to be named "A (1)", "A (2)", "A (3)", and so on for all the photos within that subfolder. Then the macro does this for every subfolder in the target folder's directory.

I currently have the attached file with the macro working that uses FileSystemObject. I'm pretty happy with it so far, but the issue is that in order to get FSO recognized, I had to select the "Microsoft Scripting Runtime" reference within VBA. So if I try to let someone else use it, I will have to go through that process with each person, correct?

So my question is how to make this work without using FileSystemObject. And also wanted to share it somewhere since I could not find a macro online that specifically did this.

Thanks

Edit: Forgot to attach an example of folder with subfolders and photos