Макрос вставки файлов в листы-Необходимо изменить ниже приведённый макрос

[as-is]

Необходимо изменить ниже приведённый макрос, взятый с форума. Необходима помощь.
Буду признателен. Автору макроса особое спасибо.
Макрос берет из папки два файла 1.xls и 2.xls, вставляя данные в лист 1 и лист 2 основного файла
(из которого вызывается макрос).
Помогите, пожалуйста, изменить его так, чтобы можно было выбрать не только два файла
1.xls и 2.xls, которые выбираются автоматически и только из указанного пути.
Спасибо.
-----------------------------------------------------------------------------------
Sub Main()
Dim i As Integer
Application.ScreenUpdating = False
Const myPath = "C:\TEMP" 'Подставьте требуемый путь к папке.
For i = 1 To 2
With ThisWorkbook.Sheets(i)
Workbooks.Open Filename:=myPath & Application.PathSeparator & i & ".xls"
Cells.Copy .[A1]
ActiveWorkbook.Close SaveChanges = False
End With
Next
End Sub
--------------------------------------------------------------------------------

[Dophin]

Вам нужно диалоговое окно выбора файла? или что?

[as-is]

Да, окно выбора файлов... и дальше согласно макроса

[EducatedFool]

Почитайте эту тему, и модернизируйте макрос.

Например, так:

Sub Main()
    Application.ScreenUpdating = False
    For i = 1 To 2
        With Workbooks.Open(GetFileName)
            Cells.Copy ThisWorkbook.Sheets(i).[A1]
            .Close False
        End With
    Next
End Sub

Function GetFileName() As String
    res = Application.GetOpenFilename("Книги Excel (*.xls),", , "Выберите файл для обработки", "Открыть")
    If VarType(res) = vbBoolean Then GetFileName = "" Else GetFileName = res
End Function

[as-is]

Спасибо, начинает получаться.