Thread
:
In Macros - compilation error
View Single Post
#
3
Posted to microsoft.public.excel.programming
Ardus Petus
external usenet poster
Posts: 718
In Macros - compilation error
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.
Reply With Quote
Ardus Petus
View Public Profile
Find all posts by Ardus Petus