Chip;

Thanks for the feedback.
I overlooked the reference to the correct path.
It works fine now !!

--
--
Mark Rosenkrantz
--
Spreadsheet Solutions
Witkopeend 24
1423 SN, Uithoorn
Netherlands
--
W: www.rosenkrantz.nl
E:
--
"Chip Pearson" wrote in message
...
You call that function from another procedure with code such as

Dim IsOpen As Boolean
IsOpen = IsNetworkFileOpen(Workbooks("BRS.xls").FullName)
If IsOpen = True Then
' do something - file is open by another process or user
Else
' do something else - file is not open
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)

"Spreadsheet Solutions" wrote in message
.. .
Dear all;

I need to check if someone on the network is using a workbook called
"BRS".
How do I do that ?

I have this function (by Andy Pope), but can't get it to work.
'-----------------------------------------------------------------
Function IsNetworkFileOpen(Filename As String)
'-----------------------------------------------------------------
Dim nFile As Long

IsNetworkFileOpen = False

nFile = FreeFile()
On Error Resume Next
Open Filename For Input Lock Read Write As #nFile
If Err < 0 Then
If Err.Number = 70 Then
IsNetworkFileOpen = True
Else
IsNetworkFileOpen = "No such file"
End If
End If
On Error GoTo 0
Close #nFile

End Function
'-----------------------------------------------------------------

Were does Workbooks("BRS.xls") comes into play ?


Many thanks beforehand.
--
--
Mark Rosenkrantz
--