MS Excel

Přidáním
obj.Object.Value = False

Tedy:

Sub Reset()
Application.ScreenUpdating = False
Dim obj As OLEObject
For Each obj In List1.OLEObjects
If TypeOf obj.Object Is MSForms.OptionButton Then
obj.Enabled = True
obj.Object.Value = False
End If
Next
Application.ScreenUpdating = True
End Sub
citovat

Netvrdím, že je to nejlepší řešení, ale je to to první co mě napadlo.
Věřím, že někdo z kolegů by to napsal jinak (lépe).

Každý z OptionButtonů je přířazen do skupiny (Vlastnosti -> GroupName) aby bylo možno vybírat ze 3 možností v rámci otázky.
Název této skupiny je předán makru Writeoption, kde dojde ke zpracování.

PS:
V modulu je přidán kód Reset2, má tu samou funkci jako Reset, jen je použit jiný způsob zápisu kódu.citovat