Count Function...in a Word table

[GoKats78]

I have a table in a Word document with Check-boxes (form fields). Is there a way to set up a formula to count the number of boxes checked?

What i need it to do is count the number of checked check-boxes across 4 sections and put the number if a field on the document

​

 

[GoKats78]

I found this bit of code, that should work...

Sub CheckedNo()
Dim Count, n, aVar, num As Integer
Count = 0
For n = 1 To 112 'number of check boxes
If ActiveDocument.FormFields("Check" & n).CheckBox.Value = True Then
Count = Count + 1
End If
Next n
For Each aVar In ActiveDocument.Variables
If aVar.Name = "Count" Then num = aVar.Index
Next aVar
If num = 0 Then
ActiveDocument.Variables.Add Name:="Count", Value:=Count
Else
ActiveDocument.Variables(num).Value = Count
End If
End Sub

But when I try to run it I get this...




"Runtime error 5941" "the requested member of the collection does not exist"

 

[GoKats78]

Figured it out..there was a checkbox number missing...I skipped, somehow, Check86...