FSO to search until subfolders

Just replace:

  ' Pick folder
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select a folder to list Files from"
        .InitialFileName = "C:\Temp\Old Folder"                         '<<< Change here
        .Show
        If .SelectedItems.Count > 0 Then myFolder = .SelectedItems(1) & "\" Else Exit Sub
    End With

with

  ' Pick folder
    myFolder = "C:\Temp\Old Folder\"                         '<<< Change here

abousetta