Вот здесь - http://www.planetaexcel.ru/tip.php?aid=290 - нашел готовый макрос в чистом виде, которые делает то что мне нужно.
Единственное, что мне нужно (в нем) исправить это то, чтобы он выдал НЕ список файлов, а список ПАПОК.
Где, как и на что это можно (нужно) в этом макросе исправить? Подскажите, пожалуйста.

(0) Цикл, который

For Each FileItem In SourceFolder.Files
'...
Next FileItem

убери

+(1) А в цикле

For Each SubFolder In SourceFolder.SubFolders  
   ListFilesInFolder SubFolder.Path, True  
Next SubFolder

вставь запись Subfolder.Path в нужную тебе ячейку

(2) Чего-то на счет "вставь запись Subfolder.Path в нужную тебе ячейку" не понял
Вот так сделал:
===
'вызываем процедуру повторно для каждой вложенной папки
   If IncludeSubfolders Then
       For Each SubFolder In SourceFolder.SubFolders
           ListFilesInFolder SubFolder.Path, True
           Cells(r, 1).Formula = SubFolder.Path
        Next SubFolder
   End If
===

не получается - ошибок не выдает, но список пустой оказывается. Где я напортачил? Что не так сделал?

вот, подсказали, решение здесь - http://www.planetaexcel.ru/forum.php?thread_id=7606

Только я не в курсе, куда этот модуль в макрос в ставить. И, видимо, его чуток адаптировать придется, пару строчек подредактировать. Подскажите, пожалуйста, как правильно скрестить эти коды (http://www.planetaexcel.ru/tip.php?aid=290 и http://www.planetaexcel.ru/forum.php?thread_id=7606), чтобы получить то, что описано в (0)?

+(4) Все, разобрался. Отбой... :-)