Easy way to translate the file names of all files in a selected folder?

I can create a list of all file names in a folder with this macro:

And then translate the list and use this macro to rename the files: