Private Sub cmdOK_Click() Dim cnt As Control For Each cnt In Controls If TypeName(cnt) = "OptionButton" Then cnt.Value = False End If Next cnt End Sub