problema con "Const ruta As String = Cells(i, 1).Value"

[jchuk]

Hola,
No estoy seguro, pero una vez declarada una constante y asignado valor a ella, no se le puede volver a asignar valor, que es justo lo que haces a la entrada del bucle.

Yo sacaría ruta fuera del bucle, al principio del procedimiento, como una simple variable de tipo String, y en el bucle le asignaría el valor, como ahora pero sin declararla.

A ver si así funciona.....

Saludos.