Tom, thanks again for you help. Your answer (and Jim's answer, too) has
really helped with my work project. This group (with people like you, Jim,
and many others) has proven to be an invaluable resource for me. Many times
I wonder where I'd be without it.

Thanks again,

Jeff Wright


"Tom Ogilvy" wrote in message
...
Just to add
Remember this:

For i = 2 to 82 Step 2
Sheets("Data").OleObjects("OptionButton" _
& i).Object.value = true
Next i

to go the other way.

Sub test1()
For i = 1 To 50
Worksheets("Sheet1").OLEObjects("Optionbutton" )
& i).Object.Value = Worksheets("Sheet1").Cells(i, 1).Value
Next i
End Sub


--
Regards,
Tom Ogilvy


"Jeff Wright" wrote in message
news:JFVge.40816$_K.23846@fed1read03...
Hello all,

I'm trying to read the boolean value of 50 option buttons into column A
of
a
worksheet so that column A will be, for example
TRUE
FALSE
TRUE
TRUE
. . . . etc. The following routine does not work, but I don't know why
(I
get a runtime error 438):

Sub test()
For i = 1 To 50
Worksheets("Sheet1").Cells(i, 1) = Worksheets("Sheet1").OLEObjects
_("Optionbutton" & i).Value
Next i
End Sub

Later on, I'll want to read the boolean values in column a to change the
value properties of option buttons 1 through 50.

Can anyone help me with this?

Thanks!

Jeff