cerrar todas las ventanas

Sub cerrarlasotrasventanas()
Dim w As Window
For Each w In Windows
If w.Caption <> "book1" Then
'=^ aqui substituyes 'book1' por lo que sea que quieras filtrar
' si es mas de un criterio, la modificacion sería:
'if w.caption <> "book1" and <> "Bookx" then
w.Close
End If
Next
End Sub


saludos.

Tambien puedes visitar
Walter R . [zz]

"daniel" wrote in message
news:%

Hola a todos
Necesito de una macro que cierre todas las ventanas menos dos las cuales
tinen unos nombres especificos .
se puede hacer esto



un saludo y muchas gracias
Daniel