In Macros - compilation error

[Guest]

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.

 

[Ardus Petus]

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,

 

[Ardus Petus]

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,

 

[Ardus Petus]

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