OK, let's take it step by step. *What* error message do you get?

For the example you gave, have you declared the variable wb?

--

Vasant

"Rob" wrote in message
...
When I step through (or run the code of the function), I still get the
error message on the second line below, where I expect it to just continue
onto the next line.
On Error Resume Next
Set wb = Workbooks(BookName)
IsOpen = Not wb Is Nothing


----- Vasant Nanavati wrote: -----

What does "none of them work for me" mean?

--

Vasant

"Rob" wrote in message
...
I want to test if a workbook is open. I've found these
suggestions, but
none of them work for me. Any ideas why?
Thanks
Rob
'I've tried:
Function IsOpen(BookName As String) As Boolean
On Error Resume Next
Set wb = Workbooks(BookName)
IsOpen = Not wb Is Nothing
End Function
'and:
Function IsOpen(BookName As String) As Boolean
On Error Resume Next
IsOpen = Not (Application.Workbooks(BookName) Is Nothing)
End Function
'and:
Function IsOpen(BookName As String) As Boolean
On Error Resume Next
IsOpen = Len(Workbooks(BookName).Name)
End Function