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