Ошибка Несоответствие типов (ошибка 13) в макросе

[Посетитель]

после запуска макроса возникает ошибка Несоответствие типов (ошибка 13)
С макросами плохо знаком и не понимаю причину.
Возможно ли как то исправить?

Файл с макросом приложил

[Администратор]

Файл я ваш взял, больше нет необходимости его выкладывать.
В ближайшее время посмотрю.

[Администратор]

В какой строке кода происходит ошибка?

[Посетитель]

Call RecursiveFolderSearch(wordApp, folderPath, searchText, ws, lastRow)

[Администратор]

Написал вам два письма на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.

Проблема с параметром tbl As Excel.ListObject.
Вы вызываете:
Call RecursiveFolderSearch(wordApp, folderPath, searchText, ws, lastRow)
где ws - это: Dim ws As Worksheet

А в процедуре это параметр: tbl As Excel.ListObject

Здесь без знания программирования видна нестыковка: Worksheet и ListObject это разные объекты.