saber si un excel esta abierto

[ebu]

hola!
tengo varios excel abiertos y me gustaria saber si el documento llamado consulta.xls esta abierto.

he probado con:
Sub main()

If Workbooks.Item(1).IsOpen Then
MsgBox "si"
End If

End Sub

pero no hace nada. he estado mirando y parece que no existe la funcion isopen para workbooks. como lo puedo hacer?

gracias por adelantado!