Usi una macro che cicli il contenuto di tutti i fogli tranne quello riepilogativo

codice:
Sub riepilogo()
Dim i As Long
Dim foglio As Worksheet
i = 2
For Each foglio In ActiveWorkbook.Sheets
 If foglio.Name <> "Riepilogo" Then
    Sheets("Riepilogo").Range("a" & i).Formula = "=" & foglio.Name & "!e25"
    Sheets("Riepilogo").Range("b" & i).Formula = "=" & foglio.Name & "!f30"
    Sheets("Riepilogo").Range("c" & i).Formula = "=" & foglio.Name & "!h15"
    i = i + 1
 End If
Next foglio
End Sub
e all'occorrenza (aggiunta/rimozione fogli) la lanci.