Нашел на форуме решение задачи.
Есть путь.
Есть разнообразные форматы файлов.
Нужно вытаскивать названия файлов и количество листов.

Задача чтобы путь в коде подставлять ячейкой а не каждый раз залезать менять код между двумя кавычками, Путь к папке. Хотелось бы путь к папке убрать из самого макроса и поместить его на отдельный лист в ячейку, так как, каждый раз после перемещения папки приходится открывать макрос, и корректировать путь к папкам ручками.

Сам профан все украл ничего не понимаю
Собираю опись (если есть предложение как делать опись без геморроя буду рад послушать)
Вдохновение: Подсчет количество листов PDF из конкретной папки. (planetaexcel.ru)
Указать путь к файлу через ячейку и скопировать данные - Мир MS Excel (excelworld.ru)
VBA Сохранения листа по пути ячейки. (planetaexcel.ru)