Actividad pública reciente
Ha valorado "Excelente" la respuesta
Macro en Excel
Te dejo este código a ver si te sirve Sub CopiaArchivos() Dim Arch As String Arch = Dir("E:\*.DOC") Do Until Arch = "" FileCopy "E:\" & Arch, "C:\" & Arch Arch = Dir Loop End Sub