A progi nem akad ki, mert lefut, és kiírja az eredményt.

A hiba a számolás előtt, a négyzetek beikszelésekor lép fel.

A gond azzal a makróval lehet, szerintem, amely a jelölőnégyzetre való rálépéskor aktiválódik.

Maga a függvény nagyon rövid:

Sub ExclusiveCheckboxes()
Dim objField As FormField
For Each objField In Selection.Frames(1).Range.FormFields
objField.CheckBox.Value = False
'DEBUG (Jimmy the Hand javaslatára)
'Debug.Print objField.Name & " - " & Now()
Next objField
Selection.FormFields(1).CheckBox.Value = True
End Sub

de nem jövök rá, hogy mi a hiba.