Automatisk udvidelse af formel med nye faner

Hej

Jeg skal lave et oversigtsregneark til en flok sagsbehandlere (de skal have hver deres kopi), hvor de i tabeller skal "afkrydse", hvor langt de er kommet i forhold til forskellige opgaver. Tabellerne placeres på hvert deres sagsfaneblad. Da det dels er forskelligt, hvor mange sager de har og da der dels kommer nye sager til, har jeg brug for to automatik-funktioner.

Til at oprette de nye faneblade bruger jeg koden (koblet til en knap):

Sub Nyt_ark()
' Makro1 Makro
    Sheets("sag").Select
    Sheets("sag").Copy After:=Sheets(3)
End Sub

Det jeg mangler nu er en kode, der kan løse følgende:

I hvert regneark skal der være en oversigtsfane, der sammentæller "krydserne" fra de enkelte sagsfaneblade. Det er derfor nødvendigt med en automatik (kode), der automatisk inkluderer nye faneblade i sammentællingsformlen efterhånden som de oprettes. Tabellen som sagsbehandlerne skriver i, har 20 felter og afkrydsningen er et tal.