Worksheet_change und Checkbox

Private Sub Worksheet_change(ByVal Target As Range)
Dim i As Integer
Dim x As Integer
x = 0
For i = 1 To 31
If Tabelle1.OLEObjects("CheckBox" & CStr(i)).Object.Value = True Then
x = x + 1
End If
Next i
Tabelle1.Cells(5, 1) = x
End Sub

Nun möchte ich, dass schon beim alleinigen Anclicken der Checkboxen der sich neu ergebende Wert berechnet wird, also ohne dass Änderungen in Zellen erfolgen (Mit Worksheet_change wird der Code nur ausgelöst, wenn ein Eintrag in Zellen erfolgt).
Vielen Dank schon jetzt für Eure Hilfe,

Dirk