Código vb:
Ver originalSub busquedaentodashojas()
'
' busquedaentodashojas Macro
'
'
Cells.Find(What:="factura", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Sheets("nombredetuhoja1").Select
Cells.FindNext(After:=ActiveCell).Activate
Cells.FindNext(After:=ActiveCell).Activate
Sheets("nombredetuhoja2").Select
Cells.FindNext(After:=ActiveCell).Activate
Sheets("nombredetuhoja3").Select
Cells.FindNext(After:=ActiveCell).Activate
End Sub
Puedes empezar implementado este metodo, puedes crear un ciclo para que recorra todas las hojas en lugar de escribir cada nombre, tambien puedes indicarle que "tome" el valor de la celda que hablas...