I can only get 1 or 2 out of the checkboxes, you can still tally them up
though
Here is another option
A right click -check mark, paste this code into the worksheet module
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
If Union(Range("$A1:$A12"), Target).Address = Range("$A1:$A12").Address
Then
If Selection = "a" Then
Selection.ClearContents
Else
With Selection.Font
..Name = "Webdings"
..Size = 10
End With
ActiveCell.FormulaR1C1 = "a"
End If
ActiveCell.Offset(1, 0).Range("A1").Select
End If
End Sub
now in another range you can enter a funtion like this
=COUNTA(A1:A12,"a")
Change the ranges as you require
but for this example when you right click in the range A1:A12 a check
mark appears or disappears
the counta function will count the number of checkmarks in that range,
then you can formulate the total to get a percentage
Just an option!!