C
Crazyhorse
Sub fileExcel()
Dim MyFile, MyPath, MyName
MyFile = Dir("C:\My Documents\*xls")
x = 2
Do While MyFile <> ""
ThisWorkbook.Worksheets("Excel").Cells(x, 1).Value = MyFile
MyFile = Dir()
If MyFile <> "" Then
x = x + 1
ThisWorkbook.Worksheets("Excel").Cells(x, 1).Value = MyFile
End If
Loop
End Sub
Dim MyFile, MyPath, MyName
MyFile = Dir("C:\My Documents\*xls")
x = 2
Do While MyFile <> ""
ThisWorkbook.Worksheets("Excel").Cells(x, 1).Value = MyFile
MyFile = Dir()
If MyFile <> "" Then
x = x + 1
ThisWorkbook.Worksheets("Excel").Cells(x, 1).Value = MyFile
End If
Loop
End Sub