Всем привет!  
Подскажите, пожалуйста, возможно ли сделать с помощью FileDialog выбор нескольких папок?  
К примеру, нижеуказанным кодом, выделяется только одна папка и переносится полное название выбранной папки столбце А.  
 
   Dim x As String  
   Dim j As Byte  
   With Application.FileDialog(msoFileDialogFolderPicker)  
       .Show  
       j = .SelectedItems.Count  
       x = .SelectedItems(j)  
   End With  
   Range("a" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Value = x