How do I Check if a workbook is opened??

[mark007]

If I read this right you want to check if a specific workbook is open and if not to open it?

If so then use the following:

Dim wb As Workbook
On Error Resume Next
Set wb=application.workbooks("WorkbookName.xls")
On Error Goto 0 'now reset error handling
If wb Is Nothing Then 
    application.workbooks.open("Path to file\WorkbookName.xls")
end if