RBS,

We may have got our threads tangled as I was meaning the filesearc
below rather than your recursive dir function.

Sub test()
With Application.FileSearch
.LookIn = "c:\my documents"
.FileType = msoFileTypeAllFiles
.Execute
For I = 1 To .FoundFiles.Count
Cells(I, 1) = .FoundFiles(I)
Next I
End With
End Sub

D:-

--
Digor
-----------------------------------------------------------------------
Digory's Profile: http://www.excelforum.com/member.php...fo&userid=1643
View this thread: http://www.excelforum.com/showthread.php?threadid=47444