Este código se me ha trabado: Sub AbrirArchivos() Dim Archivos As String Dim ws As Worksheet Dim rng As Range Dim cell As Range Dim dupes As Long Dim maxDupes As Long Dim dupeWord As String Dim dupeTie As Boolean Archivos = Dir("D:\Nueva carpeta\10...