Sub Кнопка1_Щелчок()
Dim wb As Workbook
Dim Sh As Worksheet
Dim i As Integer
fnames = Array("Книга1", "Книга2", "Книга3", "Книга4")
i = 1
For Each fnam In fnames
 
          Set wb = Workbooks.Open(ActiveWorkbook.Path & "\" & fnam & ".xls")
          Set Sh = wb.Sheets(1)
          Sh.Select
    Sheets(1).Cells(i, 1) = Sh.Cells(2, 3)
    i = i + 1
Next
End Sub

Set wb = Workbooks.Open(ActiveWorkbook.Path & "\" & fnam & ".xls")

MsgBox Dir(ActiveWorkbook.Path & "\" & fnam & ".xls")

Sub Кнопка1_Щелчок()
Dim wb As Workbook
Dim Sh As Worksheet
Dim i As Integer
fnames = Array("Бухгалтерия_Гаврикова_О_М", "Бухгалтерия_Гребенюк Е.В.", "Бухгалтерия_Посадская И.В.", "Бухгалтерия_Усков А.В.")


MsgBox CurDir

For Each fnam In fnames
  
   MsgBox ActiveWorkbook.Path & vbCrLf & fnam

Next

End Sub