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)

"Kevin R" wrote in message
...
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.

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...
--
HTH...

Jim Thomlinson


"Kevin R" wrote:

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.

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



Kevin R wrote:

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.

--

Dave Peterson