Check if Any workbooks are open

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

How do I check to see if ANY workbooks are open before running a macro? I
know how to check to see a particular workbook is open but I just want to
check to see if a (no specific) workbook is open before continuing the macro,
otherwise display a message if no workbook is open.
 
There must be at least one workbook open, the one with the code.

If Application.Workbooks.Count > 1 Then
...

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
You can count the number of open workbooks
MsgBox Application.Workbooks.Count
Note that personal.xls is a workbook which (if it exists) is hidden. You did
not specify how you wanted to handle that (if at all) so I will leave that up
to you...
 
Maybe you can just check for an active workbook?

Option Explicit
Sub testme()
If ActiveWorkbook Is Nothing Then
MsgBox "no visible workbook"
Else
MsgBox ActiveWorkbook.Name & " is active!"
End If
End Sub
 
Back
Top