Count open workbooks before closing

[Les]

Hi all, i am not a programmer but a dabbler and i am really stuck with
counting the open workbooks. I have a search programme in excel and i have in
the beginning of the code the following "Application.IgnoreRemoteRequests =
True" when i open other workbooks, no matter how many are open i always get
only 2 open with the code below ??

Sub chkWkb()

Dim wkb As Integer
Application.IgnoreRemoteRequests = False
Application.DisplayAlerts = True

wkb = Application.Workbooks.Count
If wkb < 2 Then
Application.Quit
Else
ActiveWorkbook.Close
End If

End Sub


Am i missing someghing here ??

 

[Mike H]

I don't, I get the correct answer!!

Mike

 

[NickHK]

Les,
Not sure what you expect, but you do know what IgnoreRemoteRequests mean ?
As for the number of workbooks, I would guess one is the WB containing this
code and possibly the other is the hidden Personal.xls.

If you are opening other .xls files by double clicking them, they would open
in another instance of Excel. See point above.
If you use the File>Open or automation, they will open in this instance.

So, not enough to go on to give a real answer, but check the above and see
if they help.

NickHK