Hi,
I re-tested your code. I changed this
Code:
StrNewfullfilename = ThisWorkbook.Sheets(1).Range("B1").Value & "." & strExtension'''
Back to your original code
Code:
StrNewfullfilename = wb.Sheets(1).Range("B1").Value & "." & strExtension
When I ran the code if made the first change and then a prompt came up asking for the next "Name".
In the book created it has in column A the old file name.
And in column B the new file name.
It looped through all of the files in the "Selected" folder.
Note: It does not do what you indicated in your last post. It does as you indicated in the first question.