Gravar e fechar todos os livros menos o livro activo - JJoão (08/2002)

Macro que grava e fecha todos os livros menos o activo

Sub FecharOutros()
    Dim Livro As Workbook
    Dim LivroCorrente As String
    LivroCorrente = ActiveWorkbook.Name
    For Each Livro In Workbooks
        If Livro.Name <> LivroCorrente Then Livro.Close SaveChanges:=True
    Next Livro
End Sub