New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
Sub List_Path_Of_Files() 'List Files (entire path) from a given directory in Column A of current excel worksheet 'requires a folder picker to be perfect Dim MyFolder As String Dim MyFile As String Dim a As Integer MyFolder = "C:\Test\" ' <-- Change to your folder MyFile = Dir(MyFolder & "*.*") a = 0 Do While MyFile <> "" a = a + 1 Cells(a, 1).Value = MyFolder & MyFile MyFile = Dir Loop MsgBox "Done. Column A lists all of the files of the given directory" End Sub