Running a loop until all open files are close.

[Questiontoask]

I am trying to write a VBA script which ends once it has changed, saved and closed all ActiveDocument / open files. The script reads like

Sub Replace ()
Do
.....

ActiveDocument.Save
ActiveDocument.Close

Until [All ActiveDocument are closed]

End Sub

I am looking for the right code for the action described in the square brackets.

Thanks in advance

 

[AlphaFrog]

Hi and welcome to the forum. Try somethinng like this.

[color=darkblue]Sub[/color] Replace()
    [color=darkblue]Dim[/color] wb [color=darkblue]As[/color] Workbook
    
    [color=darkblue]For[/color] [color=darkblue]Each[/color] wb [color=darkblue]In[/color] Application.Workbooks    [color=green]'Loop through all open workbooks[/color]
        [color=darkblue]If[/color] [color=darkblue]Not[/color] wb [color=darkblue]Is[/color] ThisWorkbook [color=darkblue]Then[/color]      [color=green]'Skip the workbook that contains this macro[/color]
            
            wb.Close SaveChanges:=[color=darkblue]True[/color]      [color=green]'Save and close each workbook[/color]
        [color=darkblue]End[/color] [color=darkblue]If[/color]
    [color=darkblue]Next[/color] wb
    
    [color=green]'Save and close the workbook that contains this macro[/color]
    ThisWorkbook.Close SaveChanges:=[color=darkblue]True[/color]
    
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[Questiontoask]

That worked. Thanks!