dir all files in a folder and sub folders

Hi.

Trying to write a macro that will dirr a files in a selected folder and write all filenames in a list.

Have completed a macro that will dirr all files from ONE map but it doesn't write the names of files in the subfolders under the selected map.

The code so far is :

Sub inläsning_av_filer()

    Dim biblo As String
    biblo = Range("C3").Value + "\"
    

    Extension = "*.*"
    Folder = biblo
    First = True
    RowCount = 13  ''' Första raden för inläsning
    Do
    If First = True Then
    FName = Dir(Folder & Extension)
    First = False
    Else
    FName = Dir()
    End If
    If FName <> "" Then
    Range("J" & RowCount) = FName '' kolumn för inläsning

    RowCount = RowCount + 1
    End If
    Loop While FName <> ""

Would be really greatful if someone could help me with a code that would dir all files in the selected dir + all files in dirs under that one !


Thanks in advance !

//

Per