Hi Jacob,

Thank you very much, this is perfect!

Sincerely,
David

"Jacob Skaria" wrote:

Sub FindFiles()
Dim strFile
Dim strFolder

strFolder = "c:\Documents and setting\My Documents\TestExcel\"
strFile = Dir(strFolder & "*.*", vbNormal)
Do While strFile < ""

Msbgox strFile
'do something

strFile = Dir
Loop

End Sub

--
If this post helps click Yes
---------------
Jacob Skaria


"David" wrote:

Hi Group,

I am trying to get a list of files in the directory c:/Documents and
setting/My Documents/TestExcel

and open all of them.

Thanks,
David