Ben,

try this

Dim colFiles As New Collection
Dim strPath As String
Dim strFile As String

strPath = "D:\TEMP\"

strFile = Dir(strPath)

While strFile < ""
colFiles.Add strPath & strFile
strFile = Dir
Wend

--
Hope that helps.

Vergel Adriano


"Ben" wrote:

Vergel, I have one more request. As part of the solution, you suggest
creating a collection as follows: colFiles.Add "D:Temp\book.xls" ... etc
Instead of explicitly specifying each file I'd like specify one folder and
then add all the files in that folder to colFiles.

Thanks again

"Ben" wrote:

That was helpful, Thank you

"Ben" wrote:

I have some workbooks which contain links to an external data retrieval
service. When a file is opened it takes about 30 seconds for that linked data
to be updated.

My objective is to open each file in turn, wait untill the data comes in
(say 30 seconds), convert the linked cells to values so that they are no
longer volatile and finally save the file to a different folder.

I have no difficulty doing the entire process in a loop EXCEPT that I have a
problem with introducing that delay between each pass of the loop which is
absolutely essential.

The WAIT method does not work because it locks up the machine and prevents
the data from coming in. I have used the ON.TIME method in the past to
trigger a partucular procedure but I'm not sure how to apply it to introduce
a delay between each pass of the loop.

Any other suggestions would be appreciated.

THANK YOU