Udtræk af filer fra mapper

Har nedenstående program til udtræk af filer fra mapper. Under dim2 ligger der flere mapper, og det er filerne i disse mapper jeg gerne vil have fat.


Const mappeNavn = "m:\dim1\dim2\"  'der ligger så filer i undermapper, som jeg gerne vil have listet
Dim ræk
Sub hentFilnavne()
    ræk = 1
    FindFiler mappeNavn
   
    Columns.AutoFit
End Sub
Private Sub FindFiler(folderspec)
    Dim fs, f, f1, fc
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files
    For Each f1 In fc
        filnavn = LCase(f1.Name)
                ActiveSheet.Cells(ræk, 1) = filnavn
            ræk = ræk + 1
    Next
End Sub