Cerra un libro si es que esta abierto

[misahoc]

Hola

estoy haciendo un programa el cual me abre otro libro("libro1"), y en una parte del programa me falta:

una macro que me compruebe si "libro1" ya esta abierto, si esto es verdad que lo cierre y si no esta abierto que no haga nada

Saludos!!!!

[Giova123]

Prueba con esto

For i = 1 To Windows.Count

Windows(i).Activate

nom = ActiveWorkbook.Name

If nom = "Libro2" Then

Application.Workbooks.Open "Ruta completa del libro"

End If

Next i