Are the option buttons from the Toolbox toolbar or the Forms toolbar? If they are from the Toolbox toolbar, you can use the Change event handler procedure to to this:
Private Sub OptionButton1_Change()
If OptionButton1 = True Then Range("A1") = 1 Else Range("A1") = 0
End Sub
Private Sub OptionButton2_Change()
If OptionButton2 = True Then Range("A2") = 1 Else Range("A2") = 0
End Sub
Private Sub OptionButton3_Change()
If OptionButton3 = True Then Range("A3") = 1 Else Range("A3") = 0
End Sub
If they are from the Forms toolbar, perhaps you might want to use the built-in feature of the option buttons. If none are selected, the value is 0; if the first button is selected, the value is 1; if the second button is selected, the value is 2; etc.
All you would have to do for this to work is include the Linked Cell as one of the cells on the sheet. It will be the same linked cell for all option buttons.
HTH
Jason
Bookmarks