Ray,

Dim i As Integer
With Application.FileSearch
.NewSearch
.LookIn = "C:\Documents and Settings"
.FileType = msoFileTypeAllFiles
.SearchSubFolders = False
If .Execute 0 Then
For i = 1 To .FoundFiles.Count
Range("A" & i).Value = .FoundFiles(i)
Next i
End If
End With

HTH,
Bernie
MS Excel MVP


"Ray A" <Ray wrote in message
...
I would like to copy all the file names from a folder in explorer into
Excel.
Is this possible? I am using Window XP and Excel 2003