VB question...File name

[davidhall80]

I would like to know all of the file names in the folder "Desktop/David"...I'd like them to be in column A of the Spreadsheet that I run the Macro from...Thanks in advance

 

[Jonmo1]

Try this

Sub test()
LR = Cells(Rows.Count, "A").End(xlUp).Row
x = DIR("C:\Desktop\David\*.*")
Cells(LR + 1, 1).Value = x
Do
LR = LR + 1
x = DIR
Cells(LR + 1, "A").Value = x
Loop Until x = ""
End Sub

 

[davidhall80]

Thanks You my good fellow