Creating an Excel list of Excel Files

Hi
Replace filepath from D:\my documents\ to your folder path and runt the macro

Sub List_files()
Dim  x As Integer
Dim f As String
Cells(2, 1).Select
f = Dir("D:\my documents\" & "*.xls")
Do While Len(f) > 0
ActiveCell.Formula = f
ActiveCell.Offset(1, 0).Select
f = Dir()
Loop
End Sub

ravi

for some reason it doesn't seem to work. When I run it, it moves down one row with blanks. I realized that they aren't .xls, they're .txt. So i changed the .xls -> .txt.

Why doesn't this still work?

Code provided by Macdave works fine.
Look at the attached example.
Enter your path name in K1 [e.g. C:\Sales\Reports] and file type in K3 [e.g. .Doc].
And click the button.
List appears in column A.
modytrane