Thanks Andy,
It is working fine with MS office 2007. I use the following code. Thanks for
the support.
Sub Open_All_Files()
Dim oWbk As Workbook
Dim sFil As String
Dim sPath As String
sPath = "D:\My Documents\Ajith\VBA\MVL\August\" 'location of files
ChDir sPath
sFil = Dir("*.xls") 'change or ad
Dear Ajith,
You are getting this problem because Application.FileSearch is not supported
beyond 2003.
There have been several approaches suggested for an alternate way.
The following links should help you :
http://social.msdn.microsoft.com/forums/en-US/isvvba/thread/a450830d-4fc3-4f4e-aee2-03f799
