macro to read names of subfolders in a directory

I need to list names of subfolders in a directory
BR
Michael

You could use this code:

Sub Macro2()
   Dim objFSO, destRow As Long
   Dim mainFolder, mySubFolder
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")

   Set mainFolder = objFSO.GetFolder("C:\Documents and Settings\44264520\Desktop\Desktop\")
   For Each mySubFolder In mainFolder.subfolders
      destRow = destRow + 1
      Cells(destRow, 1) = mySubFolder
   Next
End Sub

Regards,
Antonio