Ooops:

Function isOpened(sWB As String)
Dim oWb As Workbook
On Error Resume Next
Set oWb = Workbooks(sWB)
On Error GoTo 0
isOpened = Not oWb Is Nothing
End Function


"Ardus Petus" a écrit dans le message de news:
...
As a function:

Function isOpened(sWB As String)
Dim oWb As Workbook
On Error Resume Next
Set oWb = Workbooks("Book3.xls")
On Error GoTo 0
isOpened = Not oWb Is Nothing
End Function

Cheers,
--
AP

"Ardus Petus" a écrit dans le message de news:
...

sub TestMe()
Dim oWb as WorkBook
on error resume next
set owb = Workbooks("Book3.xls")
on error goto 0
if oWB is nothing then
msgbox "not opened"
else
msgbox ("opened")
endif
end sub


Cheers,
--
AP

"Vijay Kotian" a écrit dans le
message de news: ...
To check whether the file is already open or not i got a command "Res =
IsWorkbookOpen("BOOK3.xls")" when i am running this command i get a
compilation error as "sub or function not defined". Can anybody help
me.