Is workbook open?

[ianripping]

Is there some simple code for :

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

 

[Don Guillett]

Here is one I use from a menu with the filename typed into a cell. If open,
it activates. If not, it opens.
The key here is to use the on error.

Sub GetWorkbook()
If ActiveCell.Value = "" Then Exit Sub
workbookname = ActiveCell.Value
On Error GoTo OpenWorkbook
Windows(workbookname & ".xls").Activate
Exit Sub
OpenWorkbook:
Workbooks.Open(workbookname & ".xls").RunAutoMacros xlAutoOpen
End Sub