Loop through a folder of XLSX and add cell contents to filename?

[JumboCactuar]

Hi,
I'm wanting to loop through all XLSX files and add the cell contents of Sheets("Sheet1").Range("B1") to the end of the corresponding filename.

Is there a quick way to do this?

Thanks for any help

 

[JumboCactuar]

Bump