Get all file names in a folder. Folder tree structure program alternative: VBA Excel Help

Sub GetFolderName()

Dim lCount As Long

  With Application.FileDialog(msoFileDialogFilePicker) .InitialFileName _ = OpenAt .Show
     For lCount = 1 To .SelectedItems.Count
      Cells(lCount, 1).Value = .SelectedItems(lCount)
    Next lCount
  End With
End Sub

Comments

[Webplore]

Your post is helpful and informative.

[Gleb]

ヅ Great.