Cambiar la discusión del xlWhole al xlPart
Sub Cue2 ()
Amortiguar el rFind como gama
Application.ScreenUpdating = falso
Con las hojas (“sistema”). Columnas (3)
Fijar el rFind =. Encontrar (qué: = " señal ", LookAt: =xlPart, MatchCase: =False, SearchFormat: =False)
Si no el rFind entonces no es nada
Hacer
rFind.EntireRow.Delete
Fijar el rFind =. Encontrar (qué: = " señal ", LookAt: =xlPart, MatchCase: =False, SearchFormat: =False)
Colocar hasta que el rFind no sea nada
Terminar si
Terminar con
Application.ScreenUpdating = verdad
Submarino del extremo