La idea de David El Grande es muy buena... Lo que necesitas a partir de esa idea es conocer el índice que debes establecer...
En las pruebas que he hecho:
Código:
Sub Macro1()
Dim nContador As Integer
Dim i As Integer
nContador = Workbooks.Count
For i = 1 To nContador
If (Workbooks(i).FullName <> "") Then
Workbooks(i).Activate
MsgBox (Workbooks(i).FullName)
End If
Next
End Sub
me muestra en el índice 1 siempre el "Personal.xls", y según creo: luego sigue en el orden de los libros que he ido abriendo...
Por lo que se me ocurren dos opciones:
- Comparas el nombre del libro en el que quieres ejecutar el código y así controlarlo según el nombre...
- O juegas con los índices, según el orden en el que hayas abierto los libros Excel.
Saludos, Foxi.