Opened Workbook

[Jiao]

I intend to work on an opened workbook using Macro in another workbook. The
code I use is:

Dim wk as Workbook
Set wk=Workbooks.open("c:\a.xls")

It works when a.xls is closed. But when it is opened. I got a messgae "The
workbook is already Opened". Does anyone know how? Thanks.
--
I like Vb.

[Tom Ogilvy]

Dim wk as Workbook
On Error Resume Next
set wk = workbooks("a.xls")
On Error goto 0
if wk is nothing then
Set wk=Workbooks.open("c:\a.xls")
End if

msgbox wk.Name ' wk now is a reference to a.xls regardless

--
Regards,
Tom Ogilvy


"Jiao" <Jiao@discussions.microsoft.com> wrote in message
news:4F596E94-39DE-4C6F-9F03-BC3CC70CCBCD@microsoft.com...
> I intend to work on an opened workbook using Macro in another workbook.
The
> code I use is:
>
> Dim wk as Workbook
> Set wk=Workbooks.open("c:\a.xls")
>
> It works when a.xls is closed. But when it is opened. I got a messgae "The
> workbook is already Opened". Does anyone know how? Thanks.
> --
> I like Vb.