hente data fra mange filer

hej jeg har nu fået alle filnavne i mappen ind i kolonne A
Nu ville jge gerne have alle celleværder D3(ARK1) fra disse filer ind i kolonne B.

Const mappeNavn = "\\xxx\yyy\vvv\Pakkeinstruktioner\Instruktioner2\"
Dim ræk
Sub hentFilnavne()
Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    ræk = 2
    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