Hi,

Thanks Jim for your reply.

I have tried code given by you:

Try
Dim exlWorkBook As Excel.Workbook
For Each exlWorkBook In Application.Workbooks
If Not Application.ThisWorkbook Is exlWorkBook Then
exlWorkBook.Close(False)
End If
Next
Catch ex As Exception
Debug.WriteLine(ex.Message)
End Try

But it leads to exception as: "Exception from HRESULT: 0x800A03EC"

This exception value is new as compared to last one which i got. It is
occuring because of line:
"If Not Application.ThisWorkbook Is exlWorkBook"



Thanks
mahesh







"Jim Cone" wrote:

For Each exlWorkbook In Application.Workbooks
If Not ThisWorkbook Is exlWorkbook Then
exlWorkbook.Close False
End If
Next
--
Jim Cone
Portland, Oregon USA




"Mahesh_D"

wrote in message
Hi,
In Excel-2007 addin, in ShutDown functionality for closing all open files.
I have written following code:

Try
'Close All Open documents
Dim exlWorkBook As Excel.Workbook
If Application.Workbooks.Count = 1 Then
Application.ActiveWorkbook.Close(False)
Else
For Each exlWorkBook In Application.Workbooks
exlWorkBook.Close(False)
Next
End If
Catch ex As Exception
Debug.WriteLine(ex.Message)
End Try

The exception is "Exception from HRESULT: 0x800AC472".
Any suggesstions will be helpful.
Thanks
Mahesh