Is there a workbook open in Excel?

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

Guest

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
 
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
 
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
 
Back
Top