Копирование листа из закрытой книги через диалоговое окно выбора

Sub copy_list()
 
    Const fromFile = "C:\test.xls"
 
    Dim srcBook As Workbook, wb As Workbook
 
    Set wb = ActiveWorkbook
    Set srcBook = Application.Workbooks.Open(fromFile, _
                                             UpdateLinks:=False, _
                                             ReadOnly:=True, _
                                             AddToMRU:=False)
 
    srcBook.Sheets("mp").Copy After:=wb.Sheets(wb.Sheets.Count)
 
    srcBook.Close False
End Sub

Dim FileFromUser As String
 
FileFromUser = GetFileN(ThisWorkbook.Path & "\", "Выберите входной(-ые) файл(-ы)", 0, False)
' в данном разе вернет одно имя, т.к. стоит False
' если будет True, вернет множественный выбор вида File.xls|File2.xls|File3.xls, который можно по Split разобрать и в цикле обработать
' в вашем случае просто используйте переменную FileFromUser вместо константы fromFile 
 
Private Function GetFileN(sPath As String, sText As String, nType As Integer, Optional bMult As Boolean = False) As String
   Dim FN As String, strS As String, i As Integer
   Dim dlgOpen As FileDialog
   Set dlgOpen = Application.FileDialog(FileDialogType:=IIf(nType = 0, msoFileDialogOpen, msoFileDialogFolderPicker))
   FN = ""
   With dlgOpen
      .InitialFileName = sPath
      .Title = sText
      .AllowMultiSelect = bMult
      If .Show = -1 Then
         FN = ""
         For i = 1 To .SelectedItems.Count
            FN = FN & .SelectedItems(i) & "|"
         Next
         FN = Mid(FN, 1, Len(FN) - 1)
      End If
   End With
   Set dlgOpen = Nothing
   GetFileN = FN
End Function