ricerca e selezione di un dato tramite vba su excel

[depurweb]

salve a tutti:
espongo il mio problema.
In pratica ho la necessità di ricercare una parola(dato) su una cartella excell formata da più fogli: 01,02,03 ecc..
avevo tempo fà adattato una formula in vbatrovata in rete per la ricerca del dato su un solo foglio ma adesso ho la necessità che mi ricerchi il dato su titti i fogli.
eccovi il vecchio codice:
Sub CercaParola()
mot = InputBox("Inserisci il dato da ricercare")
If mot = "" Then Exit Sub
Set Zona = Sheets("GENERALE").UsedRange
For Each trouvé1 In Zona
Sheets("GENERALE").Select

Set trouvé1 = Cells.Find(What:=mot)
If trouvé1 Is Nothing Then

MsgBox "Non Trovato"
GoTo fine
Else
trouvé1.Activate
trouvé1.Select

étiq:
If MsgBox("Seguente ?", 4) = vbNo Then Exit Sub
Set trouvé2 = Cells.FindNext(After:=ActiveCell)

trouvé2.Activate
GoTo étiq
End If

Next trouvé1
fine:

End Sub


ringrazio a tutti anticipatamente.
il foglio excell generale era il vecchio foglio che racchiudeva tutti.
ciao.

[depurweb]

credo che dovrei creare una parte di formula da inserire che mi vada in successione ad aprire ogni foglio per effettuare la ricerca.
potete aiutarmi?