Seems that they removed this from the new version.
I have see some links but still cannot figure out what to do now.
Can someone please help? Thanks

Set Fs = Application.FileSearch
With Fs
.LookIn = "C:\Network\FileLocations\"
.Filename = "FileName.xls"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) = 0 Then
'Do nothing
Else
'Then set a formula in main dbs file to get next entry row cell in file it
was loking for.
Dim SetFile As String
SetFile = "FileName.xls"
Range("A1").Value = "'LookIn & "[" & SetFile & "]Sheet1'!$A$1"
End If
End With

The formula still does that apostrophe thing when file is not open and that
is what I need for changes to work.

Any help is highly appreciated

Thank you

--
George G

FileSearch has been ditched in Excel 2007. Use Dir in its place, there is a
good example in Help.

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Sgwapt" wrote in message
...
Seems that they removed this from the new version.
I have see some links but still cannot figure out what to do now.
Can someone please help? Thanks

Set Fs = Application.FileSearch
With Fs
.LookIn = "C:\Network\FileLocations\"
.Filename = "FileName.xls"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) = 0 Then
'Do nothing
Else
'Then set a formula in main dbs file to get next entry row cell in file it
was loking for.
Dim SetFile As String
SetFile = "FileName.xls"
Range("A1").Value = "'LookIn & "[" & SetFile & "]Sheet1'!$A$1"
End If
End With

The formula still does that apostrophe thing when file is not open and
that
is what I need for changes to work.

Any help is highly appreciated

Thank you

--
George G