Abrir libros desde otro

Hola Javi,

Tengo un libro que me abre otros, quiero pasar el nombre de los libros que
se van abriendo a celdas de este primer libro (para controlar cuáles están
abiertos) y no sé cómo hacerlo.

Como no expones el codigo por medio del cual abres los libros te pongo un
ejemplo generico (cambia los nombres por los reales):

Sub test()
Set MiLibro = _
Workbooks.Open("C:\MiCarpeta\Prueba.xls")
Workbooks("Principal.xls").ActiveSheet.Range("A1") _
= MiLibro.Name
End Sub

Por otro lado ¿cómo puedo comprobar con código que un libro determinado
está abierto o no?

Prueba esto:

Sub test()
Dim x As Workbook, LibroAbierto As Boolean
On Error Resume Next
Set x = Workbooks("Prueba.xls")
On Error GoTo 0
LibroAbierto = (Not x Is Nothing)
MsgBox LibroAbierto
End Sub

tambien si quieres puedes crear una funcion:

Function LibroAbierto(NombreLibro As String) As Boolean
Dim x As Workbook
On Error Resume Next
Set x = Workbooks(NombreLibro)
On Error GoTo 0
LibroAbierto = (Not x Is Nothing)
End Function

y probarla de esta manera:

Sub test()
MsgBox LibroAbierto("Prueba.xls")
End Sub


Saludos,
KL