Jhonny Callupe G.

Logré hacerla correr, era cambiar dupeWord líneas abajo 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...