Hello all,

How do I test if a workbook is open.

I have some code set up where I copy some data from a source file into a
destination file. This code needs to be run 14 times per source file. I
have the code set to close the source file after the 14th copy process. At
the end of each copy process, I have the code switch to the source file.
Well, if the source file is closed after the 14th copy process, then there
is no source file for the code to switch back to when it is done, and I get
an error.

Thanks for any help anyone can provide,

Conan Kelly

On error Resume Next
Set oWB = Workbooks("myBook.xls")
On Error Goto 0
If oWB Is Nothing Then
Msgbox "workbooks is not open
...


--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Conan Kelly" wrote in message
...
Hello all,

How do I test if a workbook is open.

I have some code set up where I copy some data from a source file into a
destination file. This code needs to be run 14 times per source file. I
have the code set to close the source file after the 14th copy process.
At the end of each copy process, I have the code switch to the source
file. Well, if the source file is closed after the 14th copy process, then
there is no source file for the code to switch back to when it is done,
and I get an error.

Thanks for any help anyone can provide,

Conan Kelly