If statement

[Wrecker]

How would I write code that would not open the workbook if it is already open?

if Workbooks.Open Filename:="P:trial5.xls" already open then
exit sub
else
Workbooks.Open Filename:="P:trial5.xls"
end sub

Thanks
Wrecker

[Mudface]

The following should work for you: -

Dim wb As Workbook
Dim WorkbookOpen As Boolean

For Each wb In Workbooks
If wb.Name = "Trial5" Then WorkbookOpen = True
Next wb

[Wrecker]

Is this what I need if the "trial5" workbook is already open? If it is already open, I need to ignore the open command.

Cant seem to make it work

Thanks
Wrecker

[Barrie Davidson]

This will work for you Wrecker:

Dim wb As Workbook
Dim WorkbookOpen As Boolean

For Each wb In Workbooks
If wb.Name = "Trial5" Then WorkbookOpen = True
Next wb
If WorkbookOpen = False Then Workbooks.Open Filename:="P:trial5.xls"

Regards,