thanks jindon.
just correct me how use the code, please ?
I open new workbook and put the code inside it and close all of files then will select folder and shows message to rename files after that shows me path /file access error
Name fn As myList(1, i) & Replace(myList(2, i), myAmount, Format$(x, "#,###.00"))
