Как из большого количества файлов вытащить значение определенной ячейки?

Задачу, поставленную в заголовке, решает вот такая процедура:

 
    Sub CelValue()
    Application.ScreenUpdating = False	
    
    wkbook_path = "D:\proba\xls\"
    
    i = 1
    
    file_name = Dir(wkbook_path & "*.xls*")
    Set wkbook = Workbooks.Add
    Set nwsheet = wkbook.Sheets.Add
    nwsheet.Activate
    
    nwsheet.Cells(i, 1).Value = "№"
    nwsheet.Cells(i, 2).Value = "Файл"
    nwsheet.Cells(i, 3).Value = "Значение ячейки"
        
    
    Do While file_name <> ""
        i = i + 1
        Application.StatusBar = "Файл " & file_name
        Workbooks.Open (file_name)
        Set wk = ActiveWorkbook
            nwsheet.Cells(i, 1).Value = i - 1
            nwsheet.Cells(i, 2).Value = file_name
            nwsheet.Cells(i, 3).Value = wk.ActiveSheet.Range("A1").Value
        wk.Close SaveChanges:=False
        
        file_name = Dir
    Loop
    Application.StatusBar = False
    Application.ScreenUpdating = True

    End Sub

Задайте в строке
wkbook_path =
свой путь к файлам, например:
wkbook_path = "D:\proba\xls\" обязательно с слэшем (\) в конце.

Необходимо создать из данной процедуры макрос и выполнить его. О том как создать макрос, написано здесь.

Ранее:
Как сделать массовый поиск и замену в документах MS Office (Word и Excel)?

Далее:
Как разделить столбец Excel на несколько диапазонов?