Каким методом выбрать несколько файлов?

[Stoodentka]

Уважаемые формучане!
Подскажите, пожалуйста, какой метод применить для выбора сразу нескольких файлов, из которых нужно скопировать данные. Во вложении пример, который открывает только выбранный файл и копирует из него данные в сводный файл. Затем нужно выбрать следующий и все повторить. А если таких файлов много, можно ли как-нибудь выбрать все одним методом?
Заранее спасибо тем, кто откликнулся

[EducatedFool]

Теперь в диалоговом окне выбора файла Вы можете выделить сразу несколько файлов (удерживая клавишу Ctrl), и все выбранные файлы будут обработаны:

Option Explicit

Sub ВсеМагазины()
    On Error GoTo MyErrors
    Dim rgData As Range, rgAll As Range, rgPaste As Range
    Dim Sh As Worksheet, wbShop As Workbook, strFile As Variant
    Application.ScreenUpdating = False

    Application.FileDialog(msoFileDialogOpen).Show
    For Each strFile In Application.FileDialog(msoFileDialogOpen).SelectedItems
        Set wbShop = Application.Workbooks.Open(strFile)

        For Each Sh In wbShop.Worksheets
            Set rgData = Sh.Range("A1").CurrentRegion    '
            Set rgData = rgData.Offset(1).Resize(rgData.Rows.Count - 1)
            Set rgAll = ThisWorkbook.Worksheets("Сводка").Range("A1").CurrentRegion
            Set rgPaste = rgAll.Resize(1, 1).Offset(rgAll.Rows.Count)
            rgData.Copy rgPaste
        Next Sh

        wbShop.Close saveChanges:=False
    Next
    Application.ScreenUpdating = True
    MsgBox "все данные скопированы": Exit Sub
MyErrors:     MsgBox "сегодня макрос не работает!"
End Sub

[Stoodentka]

Уважаемый EducatedFool!
Спасибо огромное, все отлично работает!!!