Hyperlinks von ausgelesener Ordnerstruktur

Public Sub OrdnerListen_Start()
Dim fso As Object
Dim strPfad As String, Spalte As String
Dim Ebenen As Long
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Start-Verzeichnis wählen"
.ButtonName = "übernehmen"
If .Show  -1 Then Exit Sub
strPfad = .SelectedItems(1)
End With
Spalte = InputBox("Bis zu welcher Ebene?", "Eingabe", "Alle")
If StrPtr(Spalte) = 0 Then Exit Sub
If Spalte = "Alle" Then Ebenen = 99999 Else Ebenen = CLng(Spalte)
With ActiveSheet
.UsedRange.ClearContents
Set fso = CreateObject("Scripting.FileSystemObject")
Call OrdnerListen(fso, strPfad, .Range("A1"), Ebenen)
Set fso = Nothing
End With
End Sub

Private Sub OrdnerListen(fso As Object, Ordnerangabe As String, rng As Range, _

Ebenen As Long, Optional Zeile As Long, Optional Spalte As Long)

Dim o As Object, uo As Object

Set o = fso.GetFolder(Ordnerangabe)

rng.Offset(Zeile, Spalte).Value = o.Name

Zeile = Zeile + 1

For Each uo In o.SubFolders

Spalte = Spalte + 1

If Spalte 
Spalte = Spalte - 1

Next

Set o = Nothing

Set uo = Nothing

End Sub