Comparar hojas de libros diferentes con visual basic

hola... Llevo varios días intentado comparar datos de distintas hojas y de distintos libros sin embargo a pesar de que ya lo logre se demora alrededor de 4 minutos haciendo el ejercicio completo... Quisiera que me ayudaran a mejorar los tiempos en los cuales se realiza el ejercicio el código que estoy usando es el siguiente y hasta el momento lo llevo con 1500 filas gracias.

<h2>Windows("15-11-2012.xls").Activate
ActiveSheet.Range("$A$1:$J$1808").AutoFilter Field:=3
ActiveSheet.Range("$A$1:$J$1808").AutoFilter Field:=3, Criteria1:= _
"PLANTA EXTERNA"
Windows("prueba.xls").Activate
Range("V2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-14],'[15-11-2012.xls]MAESTRA MATERIALES - FAMILIAS'!R4C1:R1808C1,1,FALSE)),""NO"",""EXTERNA"")"
Range("V2").Select
Selection.AutoFill Destination:=Range("V2:V1500")</h2>

Añade tu respuesta

Haz clic para o