Einträge zusammen zählen

Sub zahl()
Dim t
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.Select
wks.Range("A65536").End(xlUp).Offset(0, 0).Select
t = ActiveCell.Row
wks.Range("B1").Value = t
Next wks
Sheets(1).Activate
Sheets(1).Range("B1").Value = Sheets(1).Range("B1").Value + Sheets(2).Range("B1").Value +  _
Sheets(3).Range("B1").Value
End Sub

Dieses Makro wird aber nicht ausgelöst. Habe den Code in einem Modul, in der Tabelle1 und in dieser Arbeitsmappe erfasst, aber eine Zusammenzählung ist nicht erfolgt. Was muss ich tun, damit der o.g. Code automatisch ausgelöst/aktiviert wird (nicht über Buttonabfrage, sondern beim Öffnen der Arbeitmappe sollte das Zählergebnis bereits auf Tabellenblatt1 in Spalte B/Zelle1 angezeigt werden).
Alle Tabellenblätter sind mittels Blattschutz geschützt, Auf allen Tabellenblättern wurde die Spalte B und Zelle 1 gem. des Codes vom Schutz ausgenommen.
Gruß
peschi