Sub test()
Dim f As Variant

    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = True
        .Show

        For each f in .SelectedItems
            Debug.Print f.name
        Next 
    End With
End Sub

Option Explicit
Sub Riepilogo()
  Dim FD As FileDialog, MyRange As Range, varFile As Variant, sh As Byte, LC As Integer, _
  W1 As Workbook, W2 As Workbook, n As Byte
  Set MyRange = [A1:M40]
  Set W1 = ActiveWorkbook
  n = 1
    Set FD = Application.FileDialog(msoFileDialogFilePicker)
    With FD
        .InitialFileName = "C:"  'Per selezionale da dove fare iniziare la ricerca
        .AllowMultiSelect = True 'posso selezionare più files
        .Show
            Application.ScreenUpdating = False 'Conviene spegnere lo schermo
            For Each varFile In .SelectedItems 'Il ciclo esterno scorre tutti i files selezionati
            Workbooks.Open varFile
            Set W2 = ActiveWorkbook
                For sh = 1 To Worksheets.Count 'Il ciclo interno scorre tutti i fogli di ogni singolo file
                ' In ogni foglio prende l'intervallo A1:M40 e lo incolla nel corrispondente foglio del file di riepilogo
                W2.Worksheets(sh).Range(MyRange.Address).Copy
                W1.Worksheets(sh).Cells(1, n).PasteSpecial xlPasteValuesAndNumberFormats
                Next
            ' Adesso trovo la colonna su cui posizione il successivo intervallo di dati
            n = n + Columns("M").Column 'Rappresenta la colonna M dell'intervallo preso in esame
            Application.CutCopyMode = False 'svuoto la memoria dagli appunti
            W2.Close savechanges:=False
            Next
    End With
Application.ScreenUpdating = True
Sheets(1).Select
Range("A1").Select
End Sub