grecko187 respondió:
El por cierto aquí lo tienes: Buscar = InputBox("Dato a Buscar", Buscar) Reempla = InputBox("Dato Reemplazar", Reemplazar) Cells.Replace What:=Buscar, Replacement:=Reempla, LookAt:=xlPart, _ SearchOrder:=xlByRows Creo que con esto te será suficiente,...