I'm not sure if this will work or not - but when you close the active window,
the name of the active window is going to change. So you may be able to use
code like this after the .Close statement (2nd from last)
Do While ActiveWorkbook.Name = sFileName
DoEvents
Loop



"MarkS" wrote:

Hi,
I have this code
' Load Three sheets
iFilesUsedCounter = 0
Do While iFilesUsedCounter < 9
' Open AFMA WorkBook
sFileName = AFMAFiles(iFileCounter).sFileName
ActiveWorkbook.Save 'Close and save Averaging file
Workbooks.Open sAFMAPathName & sFileName
iFilesUsedCounter = iFilesUsedCounter + 3
Windows(sFileName).Activate
Application.CutCopyMode = False 'Clear Clipboard
ActiveWindow.Close SaveChanges:=False 'Close without saving AFMA file
iFileCounter = iFileCounter - 1
Loop

Which works on a good day. If the network is running slow is get a 'Unable
to Open file' or 'The file is corrupt & Cannot be opened'

Is their a way to check if the file is fully open before closing it and
checking if the file is fully closed before opening the next one

Thanks