Hi,
From my Mainworkbook the macro select some data, create a new file from this
then save as a new filename, close it, keeping the Mainworkbook open. Macro
continue and do the same process again using new data and save it as another
filename. He do this 5 times.
Problem:
If one of the file is already open by someone else the macro show an error
message and stop. How to check if the file is open? If it is open, just close
this workbook without saving it and continue with the macro to save the next
file.

If it is, I need to close this file to be able to get back on my main file
Here one part of the macro:

================

'First, the data is extract from the mainfile and copy to a new workbook
' now it's time to save this new file

Application.DisplayAlerts = False
ActiveWorkbook.Close SaveChanges:=True, _
Filename:="G:\2009\Infos\ListeTSRs.xls"
Application.DisplayAlerts = True
=========================
' macro continue, using the main file, select the new data, create a file,
then
again save as a new name.
=================