Добрый день.
Написал макрос, который копирует данные из файла.
А как сделать, чтобы макрос открывал не только конкретный файл, а все файлы в данной папке и копировал их в сводный файл

Sub svod()'
' svod Макрос
'

'
   Workbooks.Open Filename:= _
       "C:\file.xls"
   Range(Selection, Selection.End(xlToRight)).Select
   Range(Selection, Selection.End(xlDown)).Select
   Selection.Copy
   Windows("Сводный.xlsm" ).Activate
   ActiveSheet.Paste
   Application.CutCopyMode = False
End Sub