Function IsWorkbookOpen(WorkbookName as String) As Boolean
Dim Wkb as Workbook
on error resume next
Set Wkb = Workbooks(WorkbookName)
If Not Wkb Is Nothing Then IsWorkbookOpen = True
End Function
Just have to pass the workbook name to the function...if
it is open, it will return TRUE, if it is closed, FALSE
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.