Configurar Excel para buscar dentro de todo libro por defecto

Usted puede hacer esto con una macro Workbook_Open en el módulo ThisWorkbook, así:

Private Sub Workbook_Open()

Application.CommandBars.FindControl(ID:=1849).Execute
SendKeys "%(t)%(h)W~{ESC}"

End Sub

Esto establece para la sesión del libro en que se encuentra.

Para que este siempre será el valor por defecto necesita crear un Libro de macros Personal.

He incluido una modificación por lo que va a funcionar si tu Excel esta en Español (como el mío)

Private Sub Workbook_Open()

Dim lCountryCode As Long
lCountryCode = Application.International(xlCountryCode)

Application.CommandBars.FindControl(ID:=1849).Execute

Select Case lCountryCode
Case 34 'spanish
    SendKeys "%(p)%(D)L~{ESC}"
Case Else 'default english
    SendKeys "%(t)%(h)W~{ESC}"
End Select


End Sub

1. Seleccione el icono de buscar/seleccionar en el inicio de la cinta

2. Haga clic en buscar

3. Haga clic en el cuadro de "opciones" en la parte inferior derecha

4. En el lado izquierdo tiene un menú desplegable que dice "A"

5. Seleccione "Hoja" o "Libro"

Este sitio explica cómo cambiar el valor por defecto

No se anima a comandos SendKeys según lo sugerido por otras respuestas. En el pasado comando Sendkeys dio lugar a acciones muy inesperados, a donde tienes que reiniciar el equipo para recuperarse. Yo recomiendo hacer la rutina local y ejecutarlo a pedido solamente. Para mayor comodidad también puede asignar una tecla cntl a él como "q". La opción dentro de libro será recordada para el balance de la sesión.

Sub myFind()
  Application.CommandBars.FindControl(ID:=1849).Execute
  SendKeys "%(t)%(h)W~+{Tab}+{Tab}"
End Sub