Sub ListFiles()
Dim myFolder As String
Dim myFile As String
Dim i As Integer
'Be sure to include a slash mark at end of file path
myFolder = "C:\My Documents\"
'start output in row 1
i = 1
'looking for pdfs
myFile = Dir(myFolder & "*.pdf")
Application.ScreenUpdating = False
Do Until myFile = ""
Cells(i, "A").Value = myFile
i = i + 1
myFile = Dir()
Loop
Application.ScreenUpdating = True
End Sub