Iterate through files in a location

[JohnBlaze]

I have code that looks at a given word document and makes some changes. How would i go through all the word documents in say my Cata\ directory?

 

[xlbo]

#This should get you started:
filename = Dir$("C:\Data*.doc&quot
'Start File Search

Do While filename <> &quot;&quot;
'this puts names on an excel worksheet but you could add them to an array and then loop thru the array
ActiveCell.Offset(r, 0) = filename
r = r + 1
filename = Dir$()
Loop Rgds
Geoff

Vah! Denuone Latine loquebar? Me ineptum. Interdum modo elabitur