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.