Edwin Rebolledo respondió:
Aquí tienes un ejemplo de como puedes realizar la tarea: Sub Cop() Dim DIA, MES, FILA As Integer On Error GoTo exit_error ' AQUI COLOCAS EL DIRECTORIO DE TU ARCHIVO DONDE SE CONSOLIDARA LA INFORMACION ChDir "C:\MMMMM" Workbooks.Open...