VBA Marco To Copy Excel Files From Sub-Directory To Another Directory

[Excel Fox]

Try this....

Sub MoveFilesToAnotherFolder()


    Dim objFSO As Object 'FileSystemObject
    Dim objFile As Object 'File
    Dim objFolder As Object 'Folder
    Const strFolder As String = "C:\pull"
    Const strNewFolder As String = "C:\summary profits"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    For Each objFolder In objFSO.GetFolder(strFolder & "\").SubFolders
        If Right(objFolder.Name, 2) = "tb" Then
            For Each objFile In objFolder.Files
                If InStr(1, objFile.Type, "Excel", vbTextCompare) Then
                    Name objFile.Path As strNewFolder & "\" & objFile.Name
                End If
            Next objFile
        End If
    Next objFolder
    
End Sub

[Howardc]

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