Adapt macro to create list of all PDF files in folder, including subfolders.

Hi all,

I'm looking for a way to modify the code below (found on the MS website) to enable it to return results from all of the subfolders in the directory listed. I have thousands of subfolders in this directory so this would be far too time consuming to run this code individually in each one!

Sub ListFiles()
     F = Dir("F:\Drawings\rcs\*.PDF")
     
         Do While Len(F) > 0
               ActiveCell.Formula = F
               ActiveCell.Offset(1, 0).Select
               F = Dir()
          Loop
  End Sub

Thanks in advance for any help!

Glen