Sub ListThem()
Dim i As Integer
Dim strPath As String
strPath = Workbooks(ActiveWorkbook.Name).Path
With Application.FileSearch
.LookIn = strPath
.LookIn = strPath
If .Execute > 0 Then 'Workbook exists
For i = 1 To .FoundFiles.Count
Cells(i, 1) = .FoundFiles(i)
Next i
End If
End With
End Sub