Forbedre VBA kode til hyperlinks af filer i mappe og undermappe

Hej

Jeg har denne kode som fint laver en liste med hyperlinks ud fra en given mappe.

Jeg kunne rigtig godt tænke mig at den også listede filer fra subfolders.

Kan det lade sig gøre ville det være super hvis den skriver subfolder navnet med i hyperlinket, så det let kan ses at det er en fil i en sub folder.


Sub LaveListeMedFiler()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer
Dim filsti As String

Application.ScreenUpdating = False
' vis arket med links og nulstil
    Sheets("LinksFiler").Select
    Range("A1:A500") = ""
     
   
On Error GoTo år_ikke_oprettet
' lav ny liste med links
'Create an instance of the FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")

filsti = ("F:\DOKUMENT\" & Sheets("dashboard").Range("kundenr") & "\2020\")
'Get the folder object
Set objFolder = objFSO.GetFolder(filsti)
'Set objFolder = objFSO.GetFolder("F:\DOKUMENT\0000 SØNDERUP\Regnskabsgeneratorer Excel")

i = 1
'loops through each file in the directory
For Each objFile In objFolder.Files
'select cell
Range(Cells(i + 1, 1), Cells(i + 1, 1)).Select
'create hyperlink in selected cell
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
objFile.Path, _
TextToDisplay:=objFile.Name
i = i + 1
Next objFile

Application.ScreenUpdating = True
 
Exit Sub

år_ikke_oprettet:

End Sub