VBA to create a list of subfolder names and hyperlink to those folders?

[SweetAndTenderHooligan]

Hello everyone.

I have a parent folder with about 50 subfolders. I'm looking for a way to create a list in Excel of the names of those 50 subfolders (not the names of the files inside the subfolders) with hyperlinks to those subfolders.

Any help would be highly appreciated.

 

[Takae]

Hope this helps.

Sub Sample()
    Dim buf As String, cnt As Long
    Dim path As String
    path = "C:\Users\"
    cnt = 1
    buf = Dir(path, vbDirectory)
    Do While buf <> ""
        If InStr(buf, ".") = 0 Then
            Cells(cnt, 1).Value = buf
            ActiveSheet.Hyperlinks.Add Anchor:=Cells(cnt, 1), Address:=path & buf
            cnt = cnt + 1
        End If
        buf = Dir()
    Loop
End Sub

 

[SweetAndTenderHooligan]

Hope this helps.

Sub Sample()
    Dim buf As String, cnt As Long
    Dim path As String
    path = "C:\Users\"
    cnt = 1
    buf = Dir(path, vbDirectory)
    Do While buf <> ""
        If InStr(buf, ".") = 0 Then
            Cells(cnt, 1).Value = buf
            ActiveSheet.Hyperlinks.Add Anchor:=Cells(cnt, 1), Address:=path & buf
            cnt = cnt + 1
        End If
        buf = Dir()
    Loop
End Sub

That worked perfectly. Many thanks!