Greg,

You should first test to see if the workbook is already open, and
if not, open it. For example,

Dim WB As Workbook
Dim SourceWB As Workbook
For Each WB In Workbooks
If StrComp(WB.FullName, "H:\Book1.xls", vbTextCompare) = 0
Then
' wb is open
Set SourceWB = WB
Exit For
End If
Next WB
If SourceWB Is Nothing Then
Set SourceWB = Workbooks.Open("H:\Book1.xls")
End If



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"GregJG " wrote in
message ...
I use this code to open a workbook

Set SourceWb = Workbooks.Open("f:\book1.xls")

but, if the workbook is already open, I'm guessing I would need
to use
an "on error resume next"

But everything I have tried is not working.

can someone help?


---
Message posted from http://www.ExcelForum.com/