Check Open Workbooks Before Closing

Hello,

I have a workbook ("WBK1") containing data that other workbooks source information from. My thought is to place a certain value ("XX") in cell "A1" of the associated workbooks and check all open workbooks for "XX" in cell "A1". If any of the open workbooks contains "XX" in "A1" then a userform will display, otherwise "WBK1" will just close.

Any code suggestions?

try playing with this:

Sub Workbook_Check()
Dim Wb as Workbook, bClose as boolean
bClose = True
For Each Wb In Application.Workbooks
     With Wb
          If .Worksheets("Sheet1").Range("A1") = "XX" Then 
               Form1.Show
               bClose = False
               Exit For
               End If
          End With               
     Next Wb
If bClose = True Then Application.Workbooks("WBK1").Close
End Sub

Hi Guru Holger,
I seem to be misinformed. Somehow, I had an understanding that an already opened workbook could be referred to simply by its extention-less name. Nevertheless, per the details provided by OP, it seems the code would rest in the named workbook; and

ThisWorkbook.Close True

would be perfect here.
Many thanks for your review. Cheers!

Thanks for the replies however I'm having problems with

If .Worksheets("Sheet1").Range("A1") = "XX" Then

The debugger runs and highlights this line. I changed "Sheet1" to the subject sheet however no luck.

If I remove the "." before ".Worksheets" and change "Sheet1" to the name of a sheet in the workbook I want to close it works however that isn't the workbook I want to search. If I change "Sheet1" to the name of a sheet in another workbook the debugger runs.

Anymore ideas?

Holger,

Thanks for the reply. Below is what I was able to make work

[code]
Dim Wb As Workbook
Dim Ws As Worksheet
Dim blnCheck As Boolean
For Each Wb In Application.Workbooks
For Each Ws In Wb.Worksheets
If Ws.Range("A1") = "XServiceToolsX" Then
blnCheck = True
End If
Next Ws
Next Wb
If blnCheck = True Then
CloseProject.Show
Else
ThisWorkbook.Close True
End If
[code]