Consolidate multiple workbooks from a folder into one master file VBA

[Andrew_K99]

Replace

    With Application.FileDialog(4)
        .Title = "Select source file folder"
        .AllowMultiSelect = False
        If .Show = -1 Then
            Fldr = .SelectedItems(1)
        Else
            GoTo Xit
        End If
    End With

With

Fldr = "C:\SubFolder\MyFolder" 'change to the desired location

AK

[jazzy747]

Thanks for the help.

I am now stuck again because I had to modifiy the document layout.
Is there a way to make this code handle the number of columns that should be considered?
I would like to limit the data to columns "A to S" in other words the 19 first columns.
I tried to tweak "MaxCols" but it doesn't work.

Could anyone give me a hint on this please?

Thanks in advance!