Hi Patrick,
Thanks for your code. However, with help from Jacob, my problem is solved now.
Thanks again.
Regards

"Patrick Molloy" wrote:


I'm not sure waht you mean. Is there any point in making the workbooks
visible if you're closing them anyway?
This code has an IF/END IF that closes all workbooks without saving except
the workbook runnign the code.

Dim wb As Workbook
For Each wb In Workbooks
Windows(wb.Name).Visible = True
if wb.Name < thisworkbook.Name then
wb.Close False
end if
Next




"Seeker" wrote:

How about the close books action ? where do I place the ActiveWorkbook.Close.

"Patrick Molloy" wrote:

a loop like this would do it...just add it to the before close procedure



Dim wb As Workbook
For Each wb In Workbooks
Windows(wb.Name).Visible = True
Next






"Seeker" wrote:

Dear All,
Some files are opened under ActiveWindow.Visible = False when a master file
opened, a small code is needed to be placed in the Workbook_BeforeClose to
check if any invisible file(s) still open, if yes, make invisible file(s) be
visible and close file(s). A thread has mentioned by using
Windows(€œfile.xls€�).Visible = True, how should I do that please?
Regards