VBA Makro do wylistowania nazw folderów znajdujących się w danej ścieżce

Sub lista_folderow()
   
    Dim folder As String
    Dim komorka As Range
    folder = "C:\" 'tu wstawiamy ścieżkę z której nazwy folderów chcemy zczytać
    Set komorka = Range("A1")

    sDir = Dir$(folder, vbDirectory)

    Do Until LenB(sDir) = 0

        If sDir <> "." And sDir <> ".." Then
            If (GetAttr(folder & sDir) And vbDirectory) = vbDirectory Then
                komorka.Value = sDir
                Set komorka = komorka.Offset(1, 0)
            End If
        End If
       
        sDir = Dir$

    Loop

End Sub