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