Hi Ian,

Several ways. Here is a routine posted by John Green:

Sub IsWorkBookOpenDemo()
If IsWorkBookOpen("a.xls") = False Then Workbooks.Open "C:\a.xls"
If IsWorkBookOpen("b.xls") = False Then Workbooks.Open "C:\b.xls"
If IsWorkBookOpen("c.xls") = False Then Workbooks.Open "C:\c.xls"
End Sub


---
Regards,
Norman


"ianripping " wrote in message
...
Is there some simple code for :

If workbook E:\temp.xls is already open by another user then
msgbox("Open Already") else _ continue.....


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