Salve,
sotto posto la funzione che uso adesso.
Avrei la necessita' di poter eseguire la funzione su tutti i fogli (tranne alcuni).
Al momento dovrebbe essere eseguita su circa 15 fogli.
Nel mio caso ogni volta dovrei cambiare il nome PREV con il rischio che se modifico un rigo lo dovrei cambiare su tutti.
In poche parole essendo sempre uguale vorrei che la funzione si eseguisse su quasi tutti i fogli.
PS: se partisse all'apertura sarebbe il massimo ma va bene anche con un bottone.

grazie

codice:

Sub P()


i = 3

With Worksheets("PREV").Range("C:C")
   .Value = ""
End With

Worksheets("PREV").Range("C4:AH100").ClearContents
 Range("A1").Select


If Worksheets("PREV").Range("a1").Value <> "" Then
   For Each casella In Worksheets("foglio4").Range(Worksheets("Foglio4").Cells(3, 2), Worksheets("Foglio4").Cells(Worksheets("Foglio4").[a1].Value + 1, 2))
      If CStr(casella.Value) = Worksheets("PREV").Range("a1").Value Then
         
         i = i + 1
           
            Worksheets("PREV").Cells(i, 3) = casella.Offset(0, 1)
            Worksheets("PREV").Cells(i, 4) = casella.Offset(0, 4)
            Worksheets("PREV").Cells(i, 5) = casella.Offset(0, 24)
            Worksheets("PREV").Cells(i, 6) = casella.Offset(0, 25)
            Worksheets("PREV").Cells(i, 7) = casella.Offset(0, 16)
            Worksheets("PREV").Cells(i, 8) = casella.Offset(0, 18)

            
            
            
      End If
   Next
   
MsgBox "AGGIORNAMENTO ESEGUITO"
End If


End Sub