Loop Through Powerpoint in several folders and sub folders for certain String

Hi,

At the moment I have reference codes i.e. ABCDEF and want to search all PowerPoint files in folders and sub folders which contain this reference number. Once the reference number is found the Filename can be saved in the adjacent cell.

Reference [in A1] -> Filename in which it appears [in cell A2]

Thanks Very Much