Hi,

It seems that after running the codes below in excel 2007, no files
are detected and opened from "J" path. In fact there are 4 excel files
in "J" folder that need to be opened
Does the code below miss out anything ?

Sub OpenFiles()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("J:\BBC\LO\Budget\Acad") ' Change to
suit
For Each objFile In objFolder.Files
If objFile.Type = "Microsoft Excel Worksheet" Then
Workbooks.Open Filename:=objFolder.Path & "\" & objFile.Name
'Do things
ActiveWorkbook.Close True 'or false
End If
Next
End Sub

Any help will be greatly appreciated

Thanks & Regards
Len