Option Explicit

Public Sub test()
    Dim lf As Long
    
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        .Title = "Выбрать файлы" 'заголовок окна диалога
        .Filters.Clear 'очищаем установленные ранее типы файлов
        .Filters.Add "Excel files", "*.xls*;*.xlsx", 1 'устанавливаем возможность выбора только файлов Excel
        ''.Filters.Add "Text files", "*.txt", 2 'добавляем возможность выбора текстовых файлов
        .FilterIndex = 1 'устанавливаем тип файлов по умолчанию
        .InitialFileName = ThisWorkbook.Path & "\" 'назначаем папку отображения и имя файла по умолчанию
        .InitialView = msoFileDialogViewDetails 'вид диалогового окна(доступно 9 вариантов)
        If .Show = 0 Then Exit Sub 'показывает диалог
        'цикл по коллекции выбранных в диалоге файлов
        For lf = 1 To .SelectedItems.Count
            Workbooks.Open .SelectedItems(lf)
            Debug.Print .SelectedItems(lf)
            Workbooks(ActiveWorkbook.Name).Close
        Next
    End With
End Sub

Option Explicit
Const nBookName As String = "out.xlsx"
Private Sub newWB()

Workbooks.Add

    ActiveWorkbook.SaveAs Filename:= _
        ThisWorkbook.Path & "\" & nBookName, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub