Macro que busque y resalte (color de relleno)

[mrocf]

Hola! Rafaelon. Intenta con lo siguiente:

Código PHP:

  Sub BuscaY_Resalta()
Dim Hoja As Object, Search_Text As String, Celda As Range, First_Cell As String
 
Search_Text = InputBox("Ingrese número a localizar", "Búsqueda en el Libro")
If Search_Text = "" Then Exit Sub
Application.ScreenUpdating = False
 
For Each Hoja In ActiveWorkbook.Sheets
  Set Celda = Hoja.Cells.Find(What:=Search_Text, LookIn:=xlValues, _
    LookAt:=xlWhole)
  If Not Celda Is Nothing Then
    First_Cell = Celda.Address(External:=True)
    Do
      With Celda.EntireRow.Interior
        .ColorIndex = 6: .Pattern = xlSolid: .PatternColorIndex = xlAutomatic
      End With
      Set Celda = Hoja.Cells.FindNext(Celda)
    Loop Until First_Cell = Celda.Address(External:=True)
  End If
Next Hoja
 
Application.ScreenUpdating = True
End Sub 
   

COMENTARIOS:

1º) For Each Hoja In ActiveWorkbook.Sheets es quien asigna al objeto "Hoja" cada una de las hojas de tu libro.

2º) LookAt:=xlWhole te indica que se busca el texto como único contenido de la celda.

3º) El método Find no selecciona la celda encontrada sino que la asiga a la variable Celda.
De ese modo y sumado a "Application.ScreenUpdating=False" la ejecución es infinitamente más rápida.

Saludos, Cacho.