Diane,
I'm not an expert and your post was a little vague, but this might give
you a starting place.

Option Explicit

Private Sub OptionButton1_Click()

Dim wks As Worksheet
Set wks = Worksheets("Data") '<=====Change name as needed
If OptionButton1.Value = True Then
wks.Range("A1") = 100
End If
End Sub

Private Sub OptionButton2_Click()
Dim wks As Worksheet
Set wks = Worksheets("Data") '<=====Change name as needed
If OptionButton2.Value = True Then
wks.Range("A1") = 50
End If
End Sub


--
Casey


------------------------------------------------------------------------
Casey's Profile: http://www.excelforum.com/member.php...fo&userid=4545
View this thread: http://www.excelforum.com/showthread...hreadid=537308