maybe you should have posted that solution back sooner to stop people from
wasting their time finding an answer to a problem you no longer have.

Seems like that's the answer to a different question but if it does what you
want, fair enough. The original solution is much more sophisticated than
this and provides much more information


"ianripping " wrote in message
...
this works easier: -

Sub ListFiles()
F = Dir("C:\*.XLS")
Do While Len(F) 0
ActiveCell.Formula = F
ActiveCell.Offset(1, 0).Select
F = Dir()
Loop
End Sub

got it from microsoft.com


---
Message posted from http://www.ExcelForum.com/