Siga este guia para colocar as Caixas de opções na Folha1:
Supondo que você coloque 4 caixas, use este código em Folha1 :
Private Sub OptionButton1_Click()
Dim wkb As Workbook
Set wkb = ThisWorkbook
wkb.Sheets(2).Cells(1, 1) = 2
End Sub
Private Sub OptionButton2_Click()
Dim wkb As Workbook
Set wkb = ThisWorkbook
wkb.Sheets(2).Cells(1, 1) = 2
End Sub
Private Sub OptionButton3_Click()
Dim wkb As Workbook
Set wkb = ThisWorkbook
wkb.Sheets(2).Cells(1, 1) = 3
End Sub
Private Sub OptionButton4_Click()
Dim wkb As Workbook
Set wkb = ThisWorkbook
wkb.Sheets(2).Cells(1, 1) = 4
End Sub