First, here's the macro that will reset all option buttons that are on the same row as the button. Right-click the sheet tab for Survey1, select View Code, and then paste the following code in the worksheet's code module...
VBA Code:
Option Explicit
Private Sub ResetOptionButtons()
Dim resetButton As Button
Set resetButton = Me.Buttons(Application.Caller)
Dim currentOptionButton As OptionButton
For Each currentOptionButton In Me.OptionButtons
If currentOptionButton.TopLeftCell.Row = resetButton.TopLeftCell.Row Then
currentOptionButton.Value = xlOff
End If
Next currentOptionButton
End Sub
Then assign all buttons, except the one that resets all option buttons, the ResetOptionButtons macro using the following code. In the Visual Basic Editor, insert a regular module (Insert > Module), and then paste the code in the module. Change the name of the button that resets all of the option buttons, where specified in the code.
VBA Code:
Option Explicit
Sub AssignMacroToButtons()
Dim targetWorksheet As Worksheet
Set targetWorksheet = ActiveWorkbook.Worksheets("Survey1")
Dim currentButton As Button
For Each currentButton In targetWorksheet.Buttons
If currentButton.Name <> "ResetAllButton" Then 'change the name accordingly
currentButton.OnAction = targetWorksheet.CodeName & ".ResetOptionButtons"
End If
Next currentButton
End Sub
Hope this helps!