FOR i = 1 TO o.Workbooks.count
o.Workbooks.item(i).close(.f.)
NEXT

>Thanks!  How could I iterate through all the workbooks to close them all without saving changes?
>
>>How about
>><pre>o = CREATEOBJECT("excel.application")
>>owb = o.Workbooks.Open("c:\book1.xls")
>>owb.Close(.f.)  && Do not save changes
>>o.Quit

>>
>>
>>>How to automatically close all Excel opened workbooks without saving it?
>>>
>>>I would like to do this in the finally section in the try-catch block before quiting Excel so that it would get stuck with an "Do you want to save your workbook?" Dialog.
>>>
>>>Thanks!