Jak napisać makro VBA do przeszukiwania folderów i podfolderów?

cześć,

poszukuje kodu makra, które pozwoli mi przeszukać cały folder oraz znajdujące się w nim podfoldery w celu wyszukania i otwarcia plików z różnym rozszerzeniem

Ktoś już walczył z tym, ale nie mogę znaleźć wątku. Za to uchował się plik. Wykroiłem z niego to, co może Cię zainteresować.
W załączniku przykład wyszukiwarki plików na dwóch poziomach. Możesz wejść dowolnie głęboko w strukturę katalogów. W makro dopisałem i "zaptakowałem" wejście w 3-ci.

W kolumnę A (od 3-go wiersza) wpisujesz szukane, w E1 folder nadrzędny.