Hi all, i use the code below to count the workbooks open.
My problem, i have my workbook "Recon_Tools.xls" open and Book1, Book2 &
book3 but it shows me a count of "2" ?? I believe it should show me a
count of "4" ?? Any help would be appreciated.

Sub testing1()
'
Dim wkb As Integer
wkb = Application.Workbooks.Count
If wkb = 2 Then
Application.Quit
Else
Unload SelectionForm
ActiveWorkbook.Close
Workbooks("Recon_Tool.xls").Close
End If
End Sub


Les Stout

*** Sent via Developersdex http://www.developersdex.com ***