Ayuda macro para abrir libros segun valor de celda

[Gerardo Arevalo]

amigos tengo una macro que al parecer unicamente me esta abriendo un libro, veran intento abrir varios libros que estan almacenados en la columna "I", desde i2 hasta i26.. pero no funciona, me pueden ayudar.

Gracias.

Anexo codigo:

Sub ejemplo()
For i = 2 To 24
Workbooks.Open "C:\Users\Gerardo\Documents\EXCEL ARCHIVOS\" & Worksheets("hoja1").Range("L" & i)

Next i
end sub[/HTML]

[elunico22]

Hola Gerardo:

Según veo tu codigo la lista con el nombre de tu archivo esta en la columna "L" y no en "I".

De todos modos hago una adicion a tu codigo para que funcione como quieres

Sub ejemplo()

libroactual = ActiveWorkbook.Name

For i = 2 To 24

Workbooks.Open "C:\Users\Gerardo\Documents\EXCEL ARCHIVOS\" & Application.Workbooks(libroactual).Worksheets("hoja1").Range("L" & i)

Next i

end sub[/CODE]

Espero que te funcione saludos

[Gerardo Arevalo]

Gracias elunico22 me ah servido mucho tu ayuda, gracias por tomarte el tiempo de responderme

TEMA FINALIZADO

[elunico22]

Que bueno que te haya servido.

Saludos Gerardo