VBA Code to Rename Folders

[Tom Jones]

You wrote so
For i = 2 To Sheets("Rename File").Range("B2").End(xDown).Row
.... and had so
For i = 2 To Sheets("Rename File").Range("B2").End(xlDown).Row

(xlDown)