Macro to see if a file is open

[StewartS]

I have a macro which opens a specific file. I would like to check to see if that file is open so that there is no error on running the macro.

I would like something along the lines of

If workbook x is open then
activate workbook X else
open workbook x
end if

Thanks

Stewart

[Mark O'Brien]

Something like this would work. I don't know if there's anything more efficient though.

  Dim oWkBook As Workbook

  Dim bCheck As Boolean

  

  bCheck = False

  

  For Each oWkBook In Workbooks

    If UCase(oWkBook.FullName) = UCase("C:TEMPBook1.xls") Then

      bCheck = True

      Exit For

    End If

  Next

  

  If bCheck Then

    'Your code

    MsgBox "hi"

  End If

HTH

[EdE]

This one works too. I like the other version as you can use a variable.

If 'some code
Workbooks.Open FileName:= _
"\serverfoldersheet.xls", _
updatelinks:=3, WriteResPassword:="pw"
'check to see if read only
If ActiveWorkbook.ReadOnly Then
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
end if