Try to use the VBA code which i have mentioned below according to your need i hope that this will definitely help you to solve this issue.
Code:
Public Sub ListNames()
Dim Directory As String
Dim FileName As String
Dim IndexSheet As Worksheet
Dim r1 As Long
'Change the directory below as needed
Directory = "D:\Folder_name\"
If Left(Directory, 1) <> "\" Then
Directory = Directory & "\"
End If
r1 = 1
Set IndexSheet = ThisWorkbook.ActiveSheet
FileName = Dir(Directory & "*.*")
Do While FileName <> ""
IndexSheet.Cells(rw, 1).Value = FileName
r1 = r1 + 1
FileName = Dir
Loop
Set IndexSheet = Nothing
End Sub
Hope you got the result
Bookmarks