使用VBA通过工作簿文件夹循环代码？

I have a folder with a number of excel files all with the same format. I have modified the following code to determine the date and reformat it, where "i" determines the number of cells in the range based on the last row of column 2.I have a folder with a number of excel files al