Ayuda con for next (me borra el valor de variables.

[Luis E Ontiveros]

Buena tarde, les comento estoy aprendiendo el lenguaje de VBA para Excel 2013 y estoy haciendo un proyecto el cual consiste en que al abrir un libro (Índice) se ejecute una macro que abra otros determinados archivos y en diferentes ubicaciones dependiendo de cada persona que use esta aplicación. Ya tengo resuelta la parte que me pregunta por la nueva ubicación o si deseo cambiar de ubicación. El Problema que tengo que en la parte en donde tengo el código para abrir los archivos seleccionados estoy utilizando un bucle For Next y se me presenta el siguiente problema cuando lo Ejecuto y corre el primer ciclo del bucle si me abre el archivo pero al correr el segundo en adelante las Variables que tengo pierden su valor.

Cuando ejecuto el código en modo de visualizar el valor de las variables mediante un MsgBox aquí si en cada uno de los siclos las variables me muestran sus valores que deben de ser, pero al ejecutar la instrucción (Workbooks.Open Filename:=Miarchivo) me paso que apartir de segundo siclo las variables pierden su valor, no sé qué estaré haciendo mal, por eso acudo a ustedes si alguien me puede ayudar con este problema, les anexo el código que tengo para este efecto.

“Private Sub Workbook_Open()

Dim Actual As String, Completo As String, Archivo As String, Ruta As String, ELD As String, Columna As Integer, Fila As Integer, Miarchivo As String, numarch As Integer

ELD = Cells(1, 12).Value

'MsgBox "Atención Verifica que tienes actualizada la Ruta de la nueva ubiación de los archivos de las Balanzas... Gracias", vbExclamation, ELD

ActiveSheet.Select

ELD = Cells(1, 12).Value

numarch = Cells(2, 13).Value

Dim Resp As Byte

For i = 0 To numarch - 1

Ruta = Cells((2 + i), 14).Value

Archivo = Cells((2 + i), 15).Value

Miarchivo = Ruta & Archivo

MsgBox i, vbExclamation, ELD

MsgBox Ruta, vbExclamation, ELD

MsgBox Miarchivo, vbExclamation, ELD

'Workbooks.Open Filename:=Miarchivo

Next i

End

Ppto.15IED (2).zip