Sub saveall()Dim i As WorkbookFor Each i In Workbooks If i.Path <> "" Then i.Save End IfNext iEnd Sub
