Como saber si un libro esta abierto ?

Hola Ana,

Si no te importa q sea mas de una linea :-)

Sub test()
Dim Nombre As String
Dim wb As Workbook
Nombre = "Libro1.xls"
On Error Resume Next
Set wb = Workbooks(Nombre)
If wb Is Nothing Then
MsgBox "El libro " & Nombre & " no esta abierto"
Else
MsgBox "El libro " & Nombre & "esta abierto"
End If
End Sub

Saludos,
KL

"Ana" wrote in message
news:

Hola,

cual es la linea de codigo para saber si un archivo esta abierto ?

gracias