MsgBox CurrentPath & vbCrLf & Move_To_Folder & vbCrLf & CSV_Files(i)
What is the value of each variable, try temporarily running this line of code in its place and see what it returns:
Make sure that each value is valid, especially making sure that your file paths are valid and have a slash on the end.Code:MsgBox CurrentPath & vbCrLf & Move_To_Folder & vbCrLf & CSV_Files(i)
And make sure that your file name is being returned.