Не найден файл при переборе книг excel в цикле - VB

Формулировка задачи:

Здравствуйте. Подскажите пожалуйста, что делаю не так...Есть много файлов excel 2013(xls). файлы одной структуры. Задача стоит в том, чтобы со всех файлов в один результирующий выбрать нужные данные. Все файлы лежат в одной папке -в этой же папке я сделал файл, куда все надо выгружать. В итоговом файле добавил кнопку и написал код для неё:

                    Листинг программы
                
 
                        
                          
                    
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

Проблема появилась такая: когда пытаюсь выполнить, выдается сообщение:

" К сожалению нам не удалось найти файл D:\папка1\книга1.xls. Возможно, он был перемещен, переименован или удален?"

файл точно есть и путь выводится тот ,который должен быть... что не так?

Решение задачи: «Не найден файл при переборе книг excel в цикле»

textual
                            Листинг программы 
                        
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