Thread obsoleto VBA ricerca dato su piu fogli

[Alessandro1983]

Ciao a tutti,

Avrei bisogno di aiuto per modificare questo codice che ho scritto, per effettuare la ricerca di un codice e farmi restituire i valori residenti nelle celle accanto ad esso, in modo hce la ricervca venga effettuata su tutti i fogli della cartella.....

Qualcuno potrebbe darmi una mano??

Grazie in anticipo

il codice è il seguente:

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
If ActiveSheet.Name = Sheets(1).Name Then Exit Sub
Dim CL As Object
x = Target.Text
If x = "" Then Exit Sub
For Each CL In Foglio1.Range("A1:A500")
If CL.Text = x Then
a = CL.Offset(0, 1)
b = CL.Offset(0, 2)
c = CL.Offset(0, 3)
d = CL.Offset(0, 4)
e = CL.Offset(0, 5)
f = CL.Offset(0, 6)
g = CL.Offset(0, 7)
h = CL.Offset(0, 8)
i = CL.Offset(0, 9)
l = CL.Offset(0, 10)
Z = Foglio1.Range("Z1000")
Target.Offset(0, 1) = a
Target.Offset(0, 2) = b
Target.Offset(0, 3) = c
Target.Offset(0, 4) = d
Target.Offset(0, 5) = e
Target.Offset(0, 6) = f
Target.Offset(0, 7) = g
Target.Offset(0, 8) = h
Target.Offset(0, 9) = i
Target.Offset(0, 10) = l
Target.Offset(0, 25) = Z

End If