Actividad pública reciente
Ha valorado "Excelente" la respuesta
"Macro que lea listado de nombres de archivo en una columna, los ubique y los copie en otro disco"
Va de regalo de navidad Sub copiar() 'Por.DAM For i = 1 To Range("A" & Rows.Count).End(xlUp).Row ini = "C:\trabajo\" & Cells(i, "A") fin = "C:\musica\" & Cells(i, "A") FileCopy ini, fin Next End Sub Saludos. DAM