Subfolder Search

Hi All,
Pls help me with this macro; file is attached for further reference.

As this macro check the files and folders on given Path and if found then return result “Yes” on offset column. But right now its not returning the sub folders.

Regards

Kreshnr