Hi Excelfox

Thanks for the help. When activating the macro, run time error 58 appears "file already exists" and the following code is highlighted

Name objFile.Path As strNewFolder & "\" & objFile.Name

It would be appreciated if you could amend your code