Check for already opened workbook in excel, using VBA

[paulo33]

Is there a way for VBA code to check if a particular excel workbook is already open??

Thanks for any help!

 

[Zathras]

Sure. You can do something like this:
[blue]

Option Explicit

Sub test()
Dim oWorkbook As Workbook
  On Error Resume Next
  Set oWorkbook = Workbooks("a.xls")
  If oWorkbook Is Nothing Then
    MsgBox "Workbook a.xls is NOT open"
  Else
    MsgBox "Workbook a.xls IS OPEN"
  End If
  Set oWorkbook = Nothing
End Sub

[/color]