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

[mrocf]

Hola! Mauro.
Como bien te anticipa "jchuk" tu error consiste en declarar como "constante" aquello que es "variable"...

De todos modos puedes "esquivar" tanta dificultad -por ejemplo- así:

Código vb:

Sub Macro608()
Dim C As Range
Application.ScreenUpdating = False
 
For Each C In Range([a4], [a65536].End(xlUp))
  Workbooks.Open Filename:=C.Value
  C.Offset(, 1).Value = [a2].Value
  ActiveWorkbook.Close False
Next C
 
Application.ScreenUpdating = True
End Sub
 

Saludos, Cacho.