Gerardo Blackaller Bosque

Tengo la siguiente macro y necesito que busque en sub carpetas me podrían ayudar, funciona perfectamente en una carpeta, pero necesito que busque en subcarpetas Sub ExtraerFolioFiscal() Dim MiPc, carpeta, Archivos, archivo Dim y, Fila, FolioFiscal...