Loop through the workbooks and check if they are hidden

Dim wb As Workbook
Dim Num As Integer
Num = 0
For Each wb In Application.Workbooks
If wb.Windows(1).Visible Then
Num = Num + 1
End If
Next
MsgBox Num


--
Regards Ron de Bruin
http://www.rondebruin.nl


"ExcelMonkey" wrote in message ...
If it counts personal workbooks then I likely cannot us it unless there is a
way for me to tell that it is a personal workbook. I am only interested in
regular workbooks.

EM

"Bob Phillips" wrote:

Be aware, this will count Personal.xls if there is one

--
HTH

Bob Phillips

"Hayeso" wrote in message
...
If workbooks.count0 then
end if

"ExcelMonkey" wrote:

how do you tell in VBA if there is workbook open in excel. That is,
when I
launch my xla, I want to check to see if there is at least one workbook
open.
If not, I will prompt user to open workbook and exit the xla.

Thanks