Foros del web, para los que viven de bits

Sub Prueba()

End Sub

Sub BuscarTextoEnLibro()

Dim MiWord As String, FirstFind As String, MiMsg As String
Dim MiCell As Range, MiRangoActivo As String

MiWord = InputBox("Ingrese texto a buscar"): If MiWord = "" Then Exit Sub
MiRangoActivo = Selection.Address(External:=True)

For Each MiSheet In ActiveWorkbook.Sheets
  FirstFind = ""
Do
  If FirstFind = "" Then
    Set MiCell = MiSheet.Cells.Find(What:=MiWord, LookIn:=xlValues, _
      LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False)
    If MiCell Is Nothing Then GoTo S02
    FirstFind = MiCell.Address
  Else
    Set MiCell = MiSheet.Cells.FindNext(MiCell)
    If MiCell.Address = FirstFind Then GoTo S02
  End If
  
  Application.Goto MiCell
  MiMsg = "Se encuentra en la hoja """ & ActiveSheet.Name & """." & _
    Chr(10) & Chr(10) & "¿ Desea continuar ?"
  
  If MsgBox(MiMsg, vbYesNo, "Buscando el texto: """ & MiWord & """") = 7 Then
      Set MiCell = Nothing
      Exit Sub
  End If
    
Loop
  
S02:
Next MiSheet

Application.Goto Range(MiRangoActivo)
Set MiCell = Nothing
End Sub