Hallo
so???
Sub Formel() Dim f As Integer For f = 2 To 12 Sheets(f).Range("A1").FormulaLocal = "=SUMME(D1-E1- " & Sheets(f - 1).Name & "!A1)" Next f End Sub
LG UweD