Excel Macro Code Request for List files and Move specified directory

Hi ganeshinscribe
Well, you know, I now get the same error message. Seems, when I was cleaning up the code, I deleted a line that I shouldn't have...sorry about that. In Show_Me code, please insert this line

 With fldr
        .Title = "Select a Folder"
        .AllowMultiSelect = False
        .InitialFileName = "C:\"    '<----- Change this to your start Folder
        .Show                       '<----- Add this line
        On Error Resume Next
        srcFilePath = .SelectedItems(1) & "\"
        On Error GoTo 0
        If .InitialFileName = "" Then
            Exit Sub
        End If
        Range("A6") = srcFilePath
    End With

    Set objFolder = objFSO.GetFolder(srcFilePath)

Let me know of issues.

Hi ganeshinscribe
In your screen shot I can't see what column A says. Make the column wider so I can see it.

Hi ganeshinscribe
I'd like to see your screen shot from Post #9 but with Column A widened so I can see what it says.

Hi ganeshinscribe
Never mind, I see what's happening. I'll need to look at it. I'll get back to you.