Save and Close all workbooks in Excel 97

Hi all,

I want to create a loop that saves each workbook in Excel 97 and then closes them. Preferably it would look like

Do until ActiveWorkbooks = "" 'Or whatever the code for this is

ActiveWorkbook.Save
ActiveWorkbook.Close

Loop

The piece of code that I really need is the first bit, the Do Until part. Not really sure how to know that all of the workbooks have been dealt with.


Thanks

There is only one "active" workbook. You are looking for the Workbooks property. The VBA help file Workbooks Property Example gives an example of almost exactly what you are aking for. Like this:

VB Code:

Dim w As Workbook
For Each w In Workbooks
    w.Close savechanges:=True
Next w