Cerrar todos los libros abiertos salvo el maestro

Ente ejemplo

http://www.programarexcel.com/2014/04/cerrar-todos-los-libros-de-excel.html?m=1

Este es el Código que se inserta en un módulo

Sub CerraLibros()

Dim cwb As Workbook

For Each cwb In Workbooks

If cwb.Name <> ThisWorkbook.Name Then

cwb.Close SaveChanges:=False

End If

Next cwb

End Sub

Con este código podrás cerrar todos los libros abiertOs excepto el maestro donde tengas el código.

Hola,

Perfecto, todos los libros se cierran al ejecutarla. Pero seria posible que se ejecute automáticamente cuando restauro la ventana del libro maestro o cuando empezó a utilizrlo?

Saludos y gracias

Francis