Encerrar todos os livros abertos - JJoão (08/2002)

Macro que grava e fecha todos os livros abertos

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